数据库怎么链接不上？

[jdlee]

Private Sub Command1_Click()
Dim find_str As String
Dim cnn2 As ADODB.Connection
Dim rssearch As ADODB.Recordset

If Text1.Text = Empty Then
MsgBox "请输入查询内容", , "查询"
Text1.SetFocus
End If
find_str = "select * from 客房预定 " & _
"where 客人名称='" & Trim(Text1.Text) & "';"
Set cnn2 = New ADODB.Connection
cnn2.ConnectionString = "provider=MICROSOFT.Jet.OLEDB.3.51;" & _
"data source=d:\2\db1.mdb;"
cnn2.Open （这个地方停住，说是找不到数据源d:\2\db1.mdb")
Set rssearch = New ADODB.Recordset
rssearch.Open Text1, cnn2, adOpenDynamic
请大侠指教，多谢

[zdk]

用ado控件生成一个连接字符串试一下.然后在作相应修改

[zdk]

用ado控件生成一个连接字符串在作相应修改试一下.

[blkant]

请确认你的数据路径是正确的。