После подключения ADO

Пишешь

Public CN As ADODB.Connection
Public rs As ADODB.Recordset Объявляешь надеюсь знаешь где
Public sql$

Потом можно сделать следуешие

Function EXEC(cn_exec As ADODB.Connection, sql As String) As Boolean
cn_exec.BeginTrans
cn_exec.Execute sql
cn_exec.CommitTrans
If CN.Errors.Count > 0 Then
EXEC = False
Else
EXEC = True
End If
Exit Function
End Function


Потом просто Select из нужной таблицы например

sql="select * from Ваша таблица where Условие"
EXEC CN, sql

Ну вроде все
Пользуися на здаровье!