DAOを使用してＳＱＬサーバにつなげるには？

解決

もち 2005-11-16 03:05:32 No: 92670

はじめまして、もちと申します。
VB6の勉強を始めたのですが、ちょっとわからない事があるので教えてください。

DAOを使用してSQLサーバに繋げたいと思い
本を見ながら以下のコードを書いたのですが
途中でサーバ名を求められてきます。

これをスルーさせたいのですがどのように直したらいいでしょうか？
アドバイス宜しくお願いします。

Dim wk As Workspace
Dim db As Database
Dim rs As Recordset
Dim strConnect As String

'ODBC 接続用のワークスペースを作成
Set wk = CreateWorkspace("", "sa", "sa", dbUseODBC)

'ODBC接続文字列を設定
strConnect = "ODBC;" & "Driver={SQL Server};" & "Database=test;" & "UID=sa;" & "PWD=sa;"

'データベースをオープン
Set db = wk.OpenDatabase("", dbDriverComplete, True, strConnect)

ado 2005-11-16 03:33:51 No: 92671

もち 2005-11-16 23:58:33 No: 92672

ありがとうございました！なんとかできました！