ник: час
Необходимо создать запрос к таблице через Connect соединение
например:
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "My_TBL", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
затем этот rst использовать как источник строк...
или прямо так:
Public GLB_CONNECTION As ADODB.Connection
Set GLB_CONNECTION = New ADODB.Connection
GLB_CONNECTION.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GLB_PATCH_CONNECTION
Me!Adodc1.ConnectionString = GLB_CONNECTION
Me!Adodc1.RecordSource = "SELECT My_TBL.* From My_TBL"
Me!Adodc1.Refresh
Set Me!DataGrid1.DataSource = Me!Adodc1
Me!DataGrid1.Refresh