Sub con()

Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand, cmd1 As ADODB.Command
Dim fd As FileDialog


Set fd = Application.FileDialog(filedialogtype:=msoFileDialogOpen)
With fd
    .AllowMultiSelect = False
    .InitialFileName = "C:\*.mdb"
    .Title = "Выберите файл базы данных Access"
End With

If fd.Show = - 1  Then

path = fd.SelectedItems.Item( 1 )
' выделяет слово path и пишет can't find project or library



Set cnnConn = New ADODB.Connection
With cnnConn
    .ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0"
    .Open path
       
   
End With

Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = cnnConn
With cmd1
    '.CommandText = "update tab1 set name= '123' where inv = '1'"
    .CommandType = adCmdText
End With

'cmd1.Execute

i =  2 
While Worksheets( 1 ).Cells(i,  2 ).Value <>  0 
Debug.Print (Worksheets( 1 ).Cells(i,  2 ).Value)
   cmd1.CommandText = "update tab1 set summa = " & Worksheets( 1 ).Cells(i,  3 ).Value & " where inv = '" & Worksheets( 1 ).Cells(i,  2 ).Value & "'"
   cmd1.Execute
   
i = i +  1 
Wend

cnnConn.Close
Set cmdCommand = Nothing
'Set rstRecordset = Nothing
Set cnnConn = Nothing
End If

End Sub