仓库管理系统 登录界面登录不了,该如何处理

仓库管理系统 登录界面登录不了
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("请输入用户名！")
            TextBox1.Focus()
        ElseIf TextBox2.Text = "" Then
            MsgBox("请输入密码！")
            TextBox2.Focus()
        Else
            time += 1
            Dim tablename As String
            tablename = "Users"  '表的名称
            Dim SearchSQL As String
            SearchSQL = "SELECT * FROM Users WHERE user_name = '" & TextBox1.Text & "'"
            Try
                Try
                    Dim ADOcmd As SqlDataAdapter
                    '建立DataSet对象
                    Dim ds As DataSet = New DataSet '建立ADODataSetCommand对象
                    Dim mytable As Data.DataTable
                    Dim rownumber As Integer '定义一个整型变量来存放当前行数
                    '建立表单对象
                    ADOcmd = New SqlDataAdapter(SearchSQL, "Server=(local);Database=store;User Id=sa;Password=;")
                    '建立ADODataSetCommand对象
                    ADOcmd.Fill(ds, tablename) '取得表单
                    mytable = ds.Tables.Item(0) '取得名为table的表
                    rownumber = 0 '设置为第一行
                    myrow = mytable.Rows.Item(rownumber)
                    '取得第一行数据
                Catch
                    MsgBox(Err.Description)
                End Try
                ' ExecuteSQL(SearchSQL, tablename)  '查询函数
                Dim s As String
                s = myrow.Item(1)
                s = s.Trim
                If s = TextBox2.Text Then  '比较输入密码和数据库的密码
                    Dim main As New Form1
                    main.Show()
                    Me.Hide()
                ElseIf time >= 3 Then
                    MsgBox("您已经三次进入本系统，均不成功，系统将关闭！")
                    End
                Else
                    MsgBox("密码不正确，请重新输入！")

                    TextBox2.Text = ""
                End If
            Catch
                MsgBox("没有该用户", vbOKOnly + vbExclamation, "警告")
            End Try
        End If
    End Sub

请问一下代码有误吗？

[解决办法]
没有 SqlConnection 它能执行才怪来。
参考
http://blog.csdn.net/lidatgb/article/details/7196879
http://www.cnblogs.com/beio/archive/2013/01/24/2874841.html
[解决办法]
你设个断点，单步调试一下，这样能发现问题所在