Надо в таблицу загнать данные с помощью OpenRecordset

Dim dbs As Database, rst As Recordset
Dim sql As String
Set dbs = CurrentDb

sql = "SELECT * FROM Umc_tel1 WHERE Umc_tel1.Mobile = '503015999'"
Set rst = dbs.OpenRecordset(sql, dbOpenDynaset, dbReadOnly)
OpenRecordsetOutput rst

Sub OpenRecordsetOutput(rst As Recordset)
'Отображает указанный обьект RecordSet
With rstOutput
Do While Not .EOF
Debug.Print , .Fields(0)
.MoveNext
Loop
End With
End Sub

Выводит сообщение о несоответствии типов данных
в выражении условия отбора в этой строке
Set rst = dbs.OpenRecordset(sql, dbOpenDynaset, dbReadOnly)

Всем спасибо все работает :-)