和指定数据库的连接问题

Question

Private Sub Command1_Click()
 Set rs1 = New ADODB.Recordset
（？Set db = New ADODB.Connection？）  rs1.Open "select * from base where 级别='" & Text1.Text & "'", ConnMain, adOpenStatic, adLockReadOnly
    If rs1.EOF Then
       n = MsgBox("无此信息!", vbInformation)
      Text1.Text = ""
      Text1.SetFocus
   Else
     Set DataGrid1.DataSource = rs1
 End If
End Sub错误，无法连接。连接以被关闭或无效
Set db = New ADODB.Connection
 db.ConnectionString = ？
     db.Open
如何建立指定连接，连接到指定的Access数据库几种方法，请指教。并请解释。

Answer 1

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open

Answer 2

上面的是一种方式
database 没打开
dim db as database
dim rs as recordsetset db=opendatabase("数据库地址及名字后缀",false,false)set rs=db.openrecordset(sql, dbOpenDynaset)
要先引用dao 3.6