[求助]为什么错误？

Question

[求助]为什么错误？
做登录窗口时有错误,在模块中为：public conn as new adodb.connection
public rs as new adodb.recordset
错误显示：指定的初始化字符串不符合ole db规定，这是什么意思？请高手指点!private sub cmdcancel_click()
dim k as integer
dim sql as string
db = app.path & "\students.mdb"conn.open "provider=microsoft.jet.oledb.4.0;data source='" & db
sql = "select * from 登录表 where 用户用='" & txtusername.text & "'" & " and 密码='" & txtpassword.text & "'"rs.open sql, conn, adopenstatic, adlockoptimisticif rs.recordcount > 0 then
    unload me
    information.show
else
    if k > 2 then
        msgbox "你已经输入3次错误，系统自动关闭！"
        end
    end if
    msgbox "用户名、密码错误！"
    k = k + 1
end if
end sub

Answer 1

你怎么不给分,如果你用的是DAO,哪么recordcount移动到记录末尾才能真的显示值.有时还是-1,所以用这个属性不是很保险的.最好用rs.eof 来判断.这样是保险的.ADO有时也出来-1这个值,也不很保险的.

Answer 2

申明错误
Public cn As ADODB.Connection, cmd As New ADODB.Command, rs As ADODB.RecordsetSet cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\metewand.mdb;" 'Persist Security Info=False"
cn.CommandTimeout = 10
cn.Open
Set cmd.ActiveConnection = cn我开个帖你进来拿分

Answer 3

申明部分
public conn as new adodb.connection改为public conn as adodb.connection
public rs as new adodb.recordset改为public rs as adodb.recordset