Пишу
Dim Db As DAO.Database
Dim Rs1 As DAO.Recordset
А как открыть, не найду ConnectionString как в ADODB
Ну и вообще, может кто подкинет примерчик&

В ADODB было
Cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=sam_all_demo32"
Если это нужно, конечно, может здесь вообще все по другому.