Private Sub cmdOK_Click()

If TxtUser.Text = "" Or TxtPwd.Text = "" Then '判断用户框和密码框是否为空！
MsgBox "用户名或密码不能为空，请返回输入！", vbExclamation + vbOKOnly, "提示！"
Else

Dim User As String
Dim Pwd As String
User = Trim(TxtUser.Text)
Pwd = Trim(TxtPwd.Text)
Dim Conn As New ADODB.Connection
Dim StrSql As String
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb;Persist Security Info=False"
Conn.Open
StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"
Conn.Close
Unload Me
frmMain.Show
End If

End Sub

结果没有显示frmMain 窗体。 为什么？

[此贴子已经被作者于2006-5-15 14:43:42编辑过]

连接应该没错,不过没有对StrSql语句进行查询吧好象

不知道你的这句: StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"
在你的程序里是否起到了应该起的作用.是不是被执行了呢?

StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"

我不知道它是否执行了。
但是我不论输入什么数据FrmMain他都将显示出来。没有验证啊。
请问怎么验证呢？

试试：
frmMain.Show
Me.Hide
StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"肯定没执行查询。