Помогите советом, а лучше на примере.
Не могу разобраться, как програмно подключиться к набору записей и перемещаться по нему.
Пробовал такой код
rivate Sub Кнопка16_Click()
Dim DB As Database
Dim RS As DAO.Recordset
Dim D As String
    
    Set DB = CurrentDb
     Set RS = DB.OpenRecordset("Касса", dbOpenTable)
    
    RS.MoveFirst
    Do Until RS.EOF
        .......
        RS.MoveNext
    Loop
    RS.Close
End Sub
Access ругается и говорит, что Run-time error 3011? объект Касса не найден ядром базы данных Microsoft Jet, а он точно есть.
Пробовал с открытой формой и закрытой не получается
			
		



