Private Sub Command41_Click()
Dim Info1 As String
Dim nod As String, Rec As String, ret As String
Dim mas As Variant
Dim Control As String
Dim i As Long, j As Long
Dim cik As Long
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\db1.mdb;Uid=Admin;Pwd=;"""
With rs
    .ActiveConnection = con
    .LockType = adLockBatchOptimistic
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open "select * from tblFirst "
End With
        MousePointer = vbHourglass
        
'**********************************************
        m.Do "Sod^glb", Trim(txtBar.Text)
        
 For i =  0  To  9999999 
        nod = m.Do("glb^glb")
        If nod <> "" Then
        ret = m.Xecute("w " & nod & "")

 
 Info = Replace(Piece(Piece(nod, "(",  2 ), ")",  1 ), ",", "\")
 Info1 = Info & "\" & ret ' Это отдельная (единичная) строка !!!!
              
             Else
         Exit For
    End If
    
'*******************************
    rs.AddNew
        For cik =  0  To UBound(Split(Info1, "\")) -  1 
            Control = RusDosWin(Piece(Info1, "\", cik +  1 ))
            If Len(Control) >  30  Then
            Control = Left$(Control,  30 )
            End If
            If Control = "" Then
            Control = " "
            End If
            rs.Fields(cik).Value = Control
        Next cik
    rs.UpdateBatch

        Next i
        
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
MousePointer = vbDefault
'****************************

End Sub

Private Sub Command41_Click()
Dim Info1 As String
Dim nod As String, Rec As String, ret As String
Dim mas As Variant
Dim Control As String
Dim i As Long, j As Long
Dim cik As Long
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\myfile.mdb;Uid=Admin;Pwd=;"""
With rs
    .ActiveConnection = con
    .LockType = adLockBatchOptimistic
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open "select * from tblFirst "
End With
        MousePointer = vbHourglass
    
'*******************************
    rs.AddNew
           
    Fir cik = 1  to  10 
            rs.Fields(cik).Value = "Моя Строка" & cik
            rs.UpdateBatch
       Next cik

        
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
MousePointer = vbDefault
'****************************

End Sub