Такой код для открытия формы

Private Sub Form_Activate()
Dim cnn As ADODB.Connection
Dim rstCatalog As ADODB.Recordset
Dim strsql As String
Dim strConnectFile As String
Set cnn = New ADODB.Connection
Set rstCatalog = New ADODB.Recordset

strConnectFile = "D:\Zip\tbl.mdb"
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open strConnectFile, "Admin"
strsql = "Select * from Catalog"

rstCatalog.CursorLocation = adUseClient
rstCatalog.CursorType = adOpenKeyset
rstCatalog.LockType = adLockOptimistic
rstCatalog.Open (strsql), cnn, , , adCmdTablead
...

Сообщение Metod Open of Object Recordset failed
Run time error -2147467259
Другие таблицы открывает
Catalog не хочет