错误提示：在对应所需对应的序列或 集合中没有找到对应的项目。

错误一来源：

Dim objcn As New Connection
Dim objrs As New Recordset
Dim strsql As String
objcn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\1.mdb"
objcn.Open

strsql = "select 密码,身份 from 用户信息表 where 账号='" & username & "'"
Set objrs.ActiveConnection = objcn
objrs.Open (strsql)

在上端代码中可能少写了：Set objrs.ActiveConnection = objcn

错误二：

当要对数据表进行两次判断的时候一定要这么写：

select <列名1>,<列名2> from <表名> where <条件>

也就是说你要查询几列，select后面就写几列。如果开始少写要查寻的列，那么后面再查询就会不识别这个列。导致出现错误提示：在对应所需对应的序列或 集合中没有找到对应的项目。