VBA连接数据库错误

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
Set qrs = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.C
.Open
'con.Open ("provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\" & whodata)
End With
slSql = " select * from teacher"
With rs
.ActiveConnection = con
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open slSql
End With

[[italic] 本帖最后由 loocuw 于 2007-11-27 16:59 编辑 [/italic]]