Есть проблема.
Подключаюсь в Базе при помощи АДО. Следующим образом:
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strPath As String
Dim strSQL As String
With cnn
strPath = Application.StartupPath & "\learnDB.mdb"
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath
.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.Open()
End With
With rs
strSQL = "Select ID_ExercizeEx from ExercizeEx"
.ActiveConnection = cnn
.Source = strSQL
.Open()
MsgBox(.RecordCount())
End With


строке Source = strSQL выдает сообщение:

"Аремнты имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом."
Подскажите, плз, что не так? и Как это исправить?