和指定数据库的连接问题

[WangYang123]

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数据库几种方法，请指教。并请解释。

[lihonggen0]

工程--->引用--->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

[ffly]

上面的是一种方式
database 没打开
dim db as database
dim rs as recordset

set db=opendatabase("数据库地址及名字后缀",false,false)

set rs=db.openrecordset(sql, dbOpenDynaset)
要先引用dao 3.6