DAO接続によるスプレッドシートとDBの連結

あう〜！ 2003-06-19 01:18:03 No: 107557

SQLServerにＤＡＯ接続でスプレッドシートと連結したいのですが、どうもうまくいきません。
    Dim ws As DAO.Workspace
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase("", False,
False, "dsn=SQLServer;uid=***;pwd=***;DATABASE=Test")

    Set rs = cn.OpenRecordset("select * from テーブル名")

    Set vaSpread1.DataSource = rs

環境
Windows2000
Visual Basic 6.0
SQLServer 7.0
SPREAD 6.0J

どなたかご教授お願いします。

あう〜！ 2003-06-19 01:23:22 No: 107558

失礼しました。訂正です。

Set rs = cn.OpenRecordset("select * from テーブル名")

↓

Set rs = db.OpenRecordset("select * from テーブル名")

よろしくお願いします。