ник: pstrkim
Разобрался - кажется:
Dim cn As ADODB.Connection
Dim rs2 As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\db12.MDB;"
cn.Open
Set rs2 = New ADODB.Recordset
rs2.Source = rs.Source
rs2.ActiveConnection = cn
rs2.CursorType = adOpenKeyset
rs2.LockType = adLockOptimistic
rs2.Open
Set grid1 = DataGrid1.Object
Set grid1.DataSource = rs2("ChildCMD").UnderlyingValue
grid1.AllowAddNew = True
grid1.AllowArrows = True
grid1.Columns(0).Button = True
grid1.Columns(0).Locked = False
grid1.TabAction = dbgColumnNavigation