主题：窗口文本控件

这个不需要这么复杂的。

确定按钮的代码：

Dim nm As String = e.Form.Controls("姓名输入框").Value
Dim ps As String = e.Form.Controls("密码输入框").Value
Dim dr As DataRow = DataTables("表B").Find("用户名 = '" & nm & "'")
If dr Is Nothing Then
    MessageBox.show("用户不存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
ElseIf dr("密码") <> ps Then
    MessageBox.show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If