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

错误一来源：

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