VB 登录 - VB / 网络编程

user_name = Trim(tbname.Text)
pwd = Trim(tbPwd.Text)

If user_name <> "" Then
  Adodc1.Recordset.MoveFirst '从第一条记录开始查看
  Adodc1.Recordset.Find ("user =" & "'" & user_name & "'")

  If user_name = Adodc1.Recordset.Fields(0) And pwd = Adodc1.Recordset.Fields(2) Then
  MsgBox "登录成功！"
  USER_FUN.Show
  ElseIf user_name <> Adodc1.Recordset.Fields(0) Then
  MsgBox "用户名错误！", vbOKOnly + vbInformation, "提示"
  tbname.Text = ""
  tbPwd.Text = ""
  tbname.SetFocus
  ElseIf pwd <> Adodc1.Recordset.Fields(2) Then
  MsgBox "用户名错误！", vbOKOnly + vbInformation, "提示"
  tbPwd.Text = ""
  Else
  MsgBox "系统出现问题！", vbCritical, "警示"
  End If
End If

运行时老出现用户名错误的提示，这是什么原因？

---

补充：
adodc1在属性中设置了连接SQL，
tbname，tbpwd跟数据库user表的name,pwd项在属性中也设置了连接

---

我把密码错误时的提示改了，但还是提示用户名错误，可能是数据库中的内容存在空格

怎么把数据库中的内容存在的空格去点呢，也用trim吗

---

是了下，加上trim运行完全正确