帮忙看下这段登陆代码总是报输入错误

Dim conn As New Data.SqlClient.SqlConnection
        conn.ConnectionString = "server=****;uid=sa;pwd=****;database=****"
        Dim cmd As New Data.SqlClient.SqlCommand
        Dim sql As String = "select * from [user] "
        cmd.CommandText = sql
        cmd.Connection = conn
        conn.Open()
        Dim dr As Data.SqlClient.SqlDataReader
        Dim i As String
        dr = cmd.ExecuteReader
        Try
            While dr.Read()
                If dr.Item("Name") = Me.ComboBox1.Text And dr.Item("Password") = Me.PasswordTextBox.Text Then
                    MsgBox("登录成功！")
                    MDIParent1.Show()
                  else
             MsgBox("输入错误,请重新输入或注册")
            Me.ComboBox1.Text = ""
            Me.PasswordTextBox.Text = ""
Exit While

                End If
            End While
            dr.Close()
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

       帮忙看下这段登陆代码，输入正确的用户名和密码也提示输入错误。不知道要怎么改， --------------------编程问答-------------------- 目测下代码应该没有问题,LZ主要检查下表里面的记录是否存在,还有输入的用户名和密码是否确实正确...
建议楼主,以后建表的时候,不要用SQL系统的关键字．． --------------------编程问答-------------------- 不好意思,看错了,要改下你的SQL语句
  Dim sql As String = "select * from [user] where Name='" & txtUseName.Text & "'"
并且执行前要判断下,用户名是否为空:
      If String.IsNullOrEmpty(Me.txtUseName.Text) Then
            MessageBox.Show("请输入用户名")
            Me.txtUseName.Select()
            Me.txtUseName.Focus()
            Exit Sub
        End If

补充：.NET技术 ,  VB.NET