仓库管理系统 登录界面登录不了
 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)
                    '取得第一行数据
        &n