こんにちは、大変困っています。

Access2000から、DAOのODBCDirectで
SQLServer2000に接続したいのですが、
うまくいきません。
（ADOはシステム上使用不可なので、DAOでやります。)

DSN = xsl_odbc_m
UID = lep_user
PWD = lep_user
は、上記のとおりで、ODBC接続OKです。
プログラムは、下記のとおりです。

    Dim WrkSpace    As Workspace
    Dim SQLsrvDB    As Database
    Dim strConnect  As String

    strConnect = "ODBC;;UID=lep_user;PWD=lep_user;DSN=xsl_odbc_m"
    
    Set WrkSpace = CreateWorkspace("ODBC", "admin", "", dbUseODBC)

  　↓ここでエラーとなります。
    Set SQLsrvDB = WrkSpace.OpenDatabase(G_procure_dsn, dbDriverNoPrompt, False, strConnect)

プログラムの書き方がおかしいのでしょうか？
お手数ですが、皆様の知恵を貸していただければと思います。
宜しくお願いします。

ここを参考にしてみては？
http://homepage2.nifty.com/inform/vbdb/dao_odbc.htm

> ここを参考にしてみては？
> http://homepage2.nifty.com/inform/vbdb/dao_odbc.htm

ありがとうございました！
結局ODBC接続が問題だったようで、
プログラムのロジック的にはOKだったようです。
また、何かありましたら、
アドバイスの程、宜しくお願い致します。