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 子语句错误“ 请教大虾们 这是怎么回事呀谢谢

解决方案 »

  1.   

    你是代码没有贴全吗,还是你本来就是这样写的?Str = "select * from password" 这句有什么用?你后面好象都没有用到。把后面代码改成With Comm
     .ActiveConnection = Conn
     .CommandType = adCmdText
     .CommandText = str
    end With
      

  2.   

    谢谢 pingyou 我开始也是你那样写得不行 提示错误,所以我才改成现在这样子,试了一下还是提示那个错误 说明:最早的时候是可以通过的,后来我给access加密以后就出现了这个错误,后来把密码去掉以后 还是一直提示错误。
      

  3.   

    password是你的表名?那么SQL语句中要加[],或者更名,因为password是数据库保留字!
      

  4.   

    分数我就随便给一下 各位不要介意 VBman:10 分  ilove8  5分  pingyou 3分吧 没有办法 本人分不多 大家将就一下吧