- Код: Выделить всё
Dim dtg As DataGrid
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "DSN=cisserver", "sa", "#ytpyf.77"
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM Member WHERE MemberID=100", cn, adOpenStatic, , adCmdText
set dtg.DataSource=rs
Set dtg = Me.Controls.Item("dtgUpdates")
но чё-то отказывается работать. Буду признателен за помощь. Ответ, вероятно, прост, сам пока его найти не могу.