Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
А попробуйте вот так

Dim rst As ADODB.Recordset             Set rst = New Recordset                  ' Проверка наличия таблицы в другой базе         If FUN_IS_TABLE_IN_BASA("CLIENT_CARDS_TBL", GLB_DATA_DB_CONNECTION) = True Then                 rst.Open " SELECT CLIENT_CARDS_TBL.*" _                 & " From CLIENT_CARDS_TBL", GLB_DATA_DB_CONNECTION, adOpenKeyset, adLockOptimistic                     If rst.RecordCount = 0 Then                         Call MsgBox("Отсутствуют данные в указаном файле", vbCritical)                         rst.Close                         Set rst = Nothing                         Exit Function                     End If         Else                 Call MsgBox("Отсутствует таблица базы CLIENT_CARDS_TBL", vbCritical)                 Exit Function         End If

Ну и бестолковый, Вы - час!!!!!!!!