错误3907??
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 Sub
rs.Open sql, Cnn, adOpenKeyset, adLockPessimistic提示错误
我没有使用DSN
[解决办法]
cnn.open
