参照設定にチェックを入れないでADOを使いたい

質問

アクセス２００３です。
テーブル１にテキスト型のフィールド１を作り、数レコードをサンプルで入れました。

そしてＶＢＥ画面で
Sub test()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CurrentProject.FullName
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic

MsgBox rs.RecordCount

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

としたらレコード件数が取得できました。

質問は
ツール→参照設定の
Microsoft　ActiveX　Data　Objects　2.8　Library
にチェックをいれなくても
ＶＢＡコードだけで参照設定できたような気がするので
そのコードを教えてくいただけませんか？
アドバイスよろしくお願いします。

回答No.1

nda23 · ベストアンサー

できますよ。

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim cn As Object
Dim rs As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

あとは同じです。

お礼

できました～
助かりました。ありがとうございました。