SELECT

SQL

Dim レコードセット As New ADODB.Recordset

レコードセット.Open Source:="SELECT文", ActiveConnection:=データベース
...

レコードセット.Close
データベース.Close

Set レコードセット = Nothing
Set データベース = Nothing

レコードセット.Open Source:="SELECT文", ActiveConnection:=データベース, Options:=adCmdText

クエリ

With コマンド
    .ActiveConnection = データベース
    .CommandType = adCmdTable
    .CommandText = "クエリ名"

    .Parameters("[パラメータ名1]") = "値1"
    ...
End With

Set レコードセット = コマンド.execute

テーブル

レコードセット.Open Source:="テーブル名", ActiveConnection:=データベース

レコードセット.Open Source:="テーブル名", ActiveConnection:=データベース, Options:=adCmdTable