把你的工程发上来吧

引用ado

ado连接了吗？

frmLogin 模块中,

cmdOk_click  过程中,

把这一行 On Error GoTo myErr
注释一下,

那么就可以发现你的错误在这行
            If mrc.EOF = True Then

向前检查，可以发现 mrc 这个对象是在
           Set mrc = ExecuteSQL(txtSQL, MsgText)

这里生成的，

追查这个函数: ExecuteSQL

有下面关键行：

   cnn.Open ConnectString

而
    ConnectString = "FileDSN=NEWDATA.DSN;database=my_vehicle;UID=sa;PWD=sa"
 
请检查你的数据源吧。

没有数据库,我也没办法给你看.
你把这一行 On Error GoTo myErr
注释一下,

然后在出错后,依次检查上面的变量,错在那个变量.
我这里的出错是在:
MsgText

错误是 "查询错误: 常见错误: 无效的文件 dsn "

你检查一下你的 DSN ,然后检查一下 SQL .

我这里没装SQL .没办法给你查.