Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Dim Str As String
Str = App.Path & "\cl_zh.mdb"
Conn.Open Str
Str = "select * from password"
With Comm
.ActiveConnection = Conn
.CommandType = adCmdTable
.CommandText = "password"
End WithWith Report
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
'On Error GoTo LoginError
.Open Comm
End With
到最后 “open comm" 时总是提示 “from 子语句错误“ 请教大虾们 这是怎么回事呀谢谢
Dim Str As String
Str = App.Path & "\cl_zh.mdb"
Conn.Open Str
Str = "select * from password"
With Comm
.ActiveConnection = Conn
.CommandType = adCmdTable
.CommandText = "password"
End WithWith Report
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
'On Error GoTo LoginError
.Open Comm
End With
到最后 “open comm" 时总是提示 “from 子语句错误“ 请教大虾们 这是怎么回事呀谢谢
.ActiveConnection = Conn
.CommandType = adCmdText
.CommandText = str
end With