Не работает запрос к базе данных

Подключаюсь к базе акцесс из VBA код внизу:

Dim com As New ADODB.Command
Dim rs As ADODB.Recordset

Private Sub TextBox1_Change()
ListBox1.Clear
com.CommandText = "SELECT * FROM [Table] WHERE [a] LIKE '*" & TextBox1.Text & "*';"
Set rs = com.Execute
Do While Not rs.EOF
ListBox1.AddItem rs.Fields(0)
rs.MoveNext
Loop
End Sub

Private Sub UserForm_Initialize()
MyDoc = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
com.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & MyDoc & "\DB.accdb"
End Sub

Private Sub UserForm_Terminate()
Set com = Nothing
Set rs = Nothing
End Sub

переменная rs остается пустой почему? вроде всё правильно?

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.