高手们，请帮帮忙啊，小女子纠结这个问题很久了，大致是这样子的，我要用VB去连接数据库，是2003版本的，一开始用Data控件不行，我就改用ADO了，后来就发现有个问题，我的Access的内容是   然后当用户名中输入1，密码框中输入1，按回车或者登陆按钮都是可以的，但是如果密码框中输入2，按回车就显示密码错误，但是很奇怪如果按登陆竟然也是对的，同样的当用户名输入2，密码输入2，按登陆可以进入，但是回车却显示错误，纠结，我是一个大菜鸟
    yonghuming    password
      1              1
      2              2
 

Option Explicit
Dim SqlStr As String

Private Sub Command1_Click()
Dim Yonghuming As String
If Text1.Text <> "" And Text2.Text <> "" Then   '检查是否输入了数据
    Yonghuming = Text1.Text
    Adodc1.RecordSource = "Admin"                '设置使用的表
    SqlStr = "SELECT password FROM Admin WHERE yonghu='" & Yonghuming & "'"  '输入SQL语句，查询密码
    Adodc1.RecordSource = SqlStr
   
   
   If Adodc1.Recordset.Fields("password") <> Text2 Then     '检查密码是否正确
        MsgBox "你的用户名或密码有错误！", , "发生错误了！"
        Text2.Text = ""
        Exit Sub
    End If
    Me.Hide             '若密码正确则进入管理界面
    guanli.Show

Else
  MsgBox "请输入用户名与密码！", , "发生错误了！"
End If


End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus

End Sub

Private Sub Form_Load()
Adodc1.RecordSource = App.Path & "\Database11.mdb"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub

顶起

怎么没有人理我呢

text.datasource=""
text.datafield=""

你得判断没有自动机制，第一次判断之后，数据库表虚拟打开状态，你在第二次判断得时候，实际上判断得还是第一次得数据。所以才地出现如此得数据错误，建议同时判断用户名和密码，之后再判断是否有记录就可以了。

对adodc控件改变sql语句后好像还要adodc1.refresh吧（刷新，产生新记录集）,再就是如楼上所说做一次空记录判断,否则会出错，你的程序可能前面有on error resume next语句（上个过程），否则应该有出错提示的。具体修改如下(蓝色部分是我加入的语句，我没验证，不保证正确)：
If Text1.Text <> "" And Text2.Text <> "" Then   '检查是否输入了数据
    Yonghuming = Text1.Text
    Adodc1.RecordSource = "Admin"                '设置使用的表
    SqlStr = "SELECT password FROM Admin WHERE yonghu='" & Yonghuming & "'"  '输入SQL语句，查询密码
    Adodc1.RecordSource = SqlStr
    Adodc1.refresh
   If not Adodc1.Recordset.eof and not Adodc1.Recordset.bof then '记录集不为空
   If Adodc1.Recordset.Fields("password") <> Text2 Then     '检查密码是否正确
        MsgBox "你的用户名或密码有错误！", , "发生错误了！"
        Text2.Text = ""
        Exit Sub
    End If
    Me.Hide             '若密码正确则进入管理界面
    guanli.Show

Else
  MsgBox "请输入用户名与密码！", , "发生错误了！"
End If
else
  msgbox "没有" & Yonghuming & "这个用户",,"错误提示"
end if

谢谢解答，楼主万分感谢

好的，多谢大家热情相助，我去试试

呵呵。不用客气。解决问题才是好得。

楼主的问题解决了吗？我现在也在做一个VB+ACCESS的小程序，但是貌似也是连接有问题，不知道是不是建立连接的过程有问题。楼主能不能把建立连接的过程发一下？QQ525051790，方便的话我可以把程序发你看一下