各位好心人帮帮我，弄好久了！！

genius0342

Private Sub OK_Click()
On Error GoTo Err_OK_Click
Dim str As String
Dim rs As New ADODB.Recordset
logname = Trim(Txt.UserName)
pwd = Trim(Txt.Password)
If IsNull(logname) Then
DoCmd.Beep
MsgBox ("请输入用户姓名!")
ElseIf IsNull(psd) Then
DoCmd.Beep
MsgBox ("请输入用户密码!")
Else
   str = "select * from Admin where UserName='" & logname & "' and Password='" & pwd & "'"
   rs.Open str, CurrentProject.Connection
   If rs.EOF Then
   DoCmd.Beep
   MsgBox ("没有这个用户,请重新输入!")
   Txt.UserName = ""
   Txt.Password = ""
   Txt.UserName.SetFocus
   Exit Sub
   
   
   Else
   DoCmd.Close
   MsgBox ("欢迎使用客户关系数据库!")
   check = True                       '设置登陆标志
   DoCmd.OpenForm ("主窗体")
   
   End If
End If
   Set rs = Nothing
   Set conn = Nothing
Exit_OK_Click:
   Exit Sub
Err_OK_Click:
   MsgBox (Err.Description)
   Resume Exit_OK_Click
End Sub

红色的地方以前是Me.但运行总是错误，后来上网查询，有人说改成txt.因为是文本框。可这改完之后，运行就提示“要求对象”。现在要怎么改呢？
我不太会代码，这也是看书上写的，各位好心人帮帮我吧，万分感谢先！！

Grant

新手学习如何发帖
http://www.office-cn.net/vvb/thread-56333-1-1.html

不懂代码应该先找基础学习,把txt改回Me.xx

Grant

新手学习如何发帖
http://www.office-cn.net/vvb/thread-56333-1-1.html

不懂代码应该先找基础学习,把txt改回Me.xx

zyp

应该是用"ME."的,  不过最好文本框的名字不要用跟VB关键词相同或相近的字符串,比如改为T_UserName, 另外, logname 和PWD最好先定义一下再使用

genius0342

Private Sub OK_Click()  反黄
logname = Trim(Me.UserName)  光标到这了

改回Me.后，就是这样的错误。
公司让做的，有点急，没时间从头学，就买本书照着做了。
帮帮我吧，有空我肯定好好学习下代码，不过现在真的没时间了，谢谢版主大人了！