错误3907??

Question

Private Sub Command4_Click()
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=/水泥搅拌站工程/msdb/copdb.mdb;Mode=ReadWrite;Persist Security Info=False;"
sql = "Select * from ms_equipment"
rs.Open sql, Cnn, adOpenKeyset, adLockPessimistic
Label6.Caption = rs("stone")
End Subrs.Open sql, Cnn, adOpenKeyset, adLockPessimistic提示错误我没有使用DSN