Привет я взял твой пример и добавил туда цикл
на всякий случай ещё поставил изменение и добавление.
Вдруг пригодиться
))
Проблема была в том что ты не определил ссылку на вид считываемых данных
надо Set rs = db.openrecordset('Customers', dbOpenDynaset)
Если вопросы будут пиши на мыло
Dim objAccess As Object
Dim db As Object
Dim tb As Object
Dim rs As Object
Dim i As Integer, n As Integer
Set objAccess = GetObject('c: est.mdb')
'=objAccess.UserControl = False
objAccess.Visible = True
'Set db = objAccess.currentdb
Set db = objAccess.currentdb
Set tb = db.tabledefs('Customers')
Set rs = db.openrecordset('Customers', dbOpenDynaset)
Crit = 'CompanyName='Alfreds Futterkiste''
Do While Not rs.NoMatch
rs.FindFirst Crit
test = rs('CustomerID')
MsgBox test
' Izmenenie znacenij
rs.Edit
rs('CompanyName') = 'Alfreds Futterkiste'
rs.Update
'''''''''''''''''''''''''''''''''''''''''''''''''' '''
'dobavlenie novih znacenij
rs.AddNew
rs('CustomerID') = 'VS'
rs('CompanyName') = 'Vjatseslav Stserbakov'
rs.Update
'''''''''''''''''''''''''''''''''''''''''''''''''' '''
rs.FindNext Crit
Loop
db.Close