アクセス2000VBA DAOをADOに書き換えてください

アクセス2000VBA　DAOをADOに書き換えてください
下記プログラムをADOに書き換えてください。（DAT1、DAT2はモジュールにて定義してあります）

Option Compare Database
Dim DBS As Database
Dim QDF As QueryDef
Dim RST As DAO.Recordset
Dim COUNT1

Private Sub Form_Load()

On Error Resume Next

DAT2 = [Forms]![伝票]![HAKKOU1]
Set DBS = CurrentDb
Set QDF = DBS.QueryDefs("発行")
With QDF
.Parameters("DAT1") = DAT2　’もしかしたら　DAT2　ではエラーがでるかもしれません。
Set RST = .OpenRecordset()　’正しい記述を教えてください
.Close
End With
With RST
COUNT1 = !指示書
.Close
End With

No.2 ベストアンサー 回答者： imogasi 回答日時： 2010/07/14 00:03

Googleででも、「ACCESS　ADO」で照会するとコード例が出てくる。

比べれば差はわかるはず。
http://www.accessclub.jp/ado/06.html
http://www.happy2-island.com/access/gogo04/capte …
など。
ーー
または｛ADO DAOとの違い　Access」で照会する
http://msdn.microsoft.com/ja-jp/library/cc948691 …　など

この回答へのお礼

今後の参考にさせて頂きます。ありがとうございました

お礼日時：2010/09/20 17:36

No.3 回答者： layy 回答日時： 2010/07/14 06:38

DAOとADOを比較する

http://www.tsware.jp/labo/labo_23.htm

同じロジックで性能比較した結果があります。
説明サイトも多数、こういうのを探してみてください。

この回答へのお礼

今後の参考にさせて頂きます。ありがとうございました

お礼日時：2010/09/20 17:37

No.1 回答者： layy 回答日時： 2010/07/13 21:26

ＤＡＯとＡＤＯの違いがわからない？？？。

せめて、
どっから手をつけていいかわからない、とか
どの行が問題で投稿したのか、とか
はっきりさせてください。

回答者は便利屋ではないんですから。

それでも回答例はあると思います・・・・。