主题：[求助]

请您上传文件，并具体说明怎么操作，遇到什么问题。

呵呵，很明显，你学了很多，但是消化不太好。
正确的代码：
 
Dim frm As WinForm.Form
frm = Forms("窗口1")
Dim xm1 As String = frm.controls("combobox1").text
Dim ma1 As String = frm.controls("textbox1").text
With DataTables("czglydjb")
    If xm1 = "" Or ma1 = "" Then
        MessageBox.Show("请输入用户名及密码:")
    Else
        Dim dr As DataRow  = .Find("员工姓名 = '" & xm1 & "'")
        If dr IsNot Nothing AndAlso dr("员工密码") = ma1 Then
            Forms("窗口2").show()
        Else
            MessageBox.Show("密码或用户名不正确,请重新输入!")
        End If
    End If
End With
 
这个一定要看一下：
http://www.foxtable.com/help/topics/1284.htm

 
简单实战之后，回头再系统补两遍帮助，这样效果更好。
 
 

第二行错了，而且很严重。

建议看看：

http://www.foxtable.com/help/topics/1284.htm