参照設定にチェックを入れないで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
にチェックをいれなくても
ＶＢＡコードだけで参照設定できたような気がするので
そのコードを教えてくいただけませんか？
アドバイスよろしくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
todo36 さん テンプレートファイルの保存先が分かり助かりました。 ありがとうございました。