Option Explicit
   Public cn As New ADODB.Connection
   Public rs As New ADODB.Recordset
   Public rsA As New ADODB.Recordset
   

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    rsA.Move DataGrid1.FirstRow + DataGrid1.Row -  1 ,  1 
    DataGrid2.Refresh
End Sub

Private Sub Form_Load()
    Dim i As Integer
    
   cn.ConnectionString = Здесь строка подключения
   cn.CursorLocation = adUseClient
   cn.Open
   
   rs.Open "select * from table1", cn, adOpenKeyset, adLockOptimistic
   rsA.Fields.Append "t", adInteger
   rsA.Open
   For i =  1  To rs.RecordCount
    rsA.AddNew
    rsA!t = i
   Next i
   
   rs.MoveFirst
   rsA.MoveFirst
   
   Set DataGrid1.DataSource = rs
   Set DataGrid2.DataSource = rsA
   
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set rs = Nothing
    Set rsA = Nothing
    Set cn = Nothing
End Sub

cn.Execute "INSERT INTO @temp SELECT name, 0 as t from Table"

rs.Open "SELECT * from @temp", cn, adOpenKeySet, adLockOptimistic
DataGrid1.DataSource = rs