Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim sqldr As SqlClient.SqlDataReader
        Dim selectcmd As SqlClient.SqlCommand
        selectcmd.CommandText = "select pcode from party where " & TextBox1.Text & "=pno"
        selectcmd.CommandType = CommandType.Text        SqlConnection1.Open() '打开连接
        sqldr = selectcmd.ExecuteReader(CommandBehavior.SingleResult)
        If (sqldr.Read) Then
            If (TextBox2.Text = selectcmd.CommandText) Then
                DataGridView1.Show()
                Button1.Show()
                Button2.Show()
            Else
                MsgBox("密码错误", , "提示")
            End If
        End If
        SqlConnection1.Close()
每次都提示变量”selectcmd “在赋值前被使用 是怎么回事?