From Evernote:

[ACCESS2.0]ACCESS2.0でSQLServerを読みに行く

97以降ならADOで読みにいってたんだけど

2.0はDAOじゃないとダメなのかな？

ということでDAOで作り直し。

 'チェックフラグ
 Dim ChkFLG As Integer: ChkFLG = 0
 '*2.0*
 Dim stConnect As String
 stConnect = "ODBC;DSN=＊＊＊＊;UID=＊＊＊＊;PWD=＊＊＊＊;DATABASE=＊＊＊＊;"
 Dim WS As WorkSpace
 Dim DB2 As Database 'データベースオブジェクト変数
 Dim RS2 As Recordset 'レコードセットオブジェクト変数
 Set WS = DBEngine.Workspaces(0)
 Set DB2 = WS.OpenDatabase("", False, False, stConnect)
 Dim mySQL As String
 mySQL = "SELECT * FROM sysobjects WHERE xtype IN ('N' , 'U' ) ORDER BY name"
 Set RS2 = DB2.OpenRecordset(mySQL, db_open_Dynaset)
 Do Until RS2.EOF 'レコードの終わり
      If RemoteTblName = RS2.Fields("Name") Then
           ChkFLG = 1
           Exit Do
      End If
 RS2.MoveNext
 Loop
 'レコードセットオブジェクトを閉じる
 RS2.Close
 Set RS2 = Nothing
 'データベースオブジェクトを閉じる
 DB2.Close
 Set DB2 = Nothing