谁能对我说一下啊这代码有什么问题啊啊！

看来你是在做登录窗体吧！下面代码只供参考，不知能否帮到你。

Private Sub 用户登录_Click()
On Error GoTo Err_用户登录_Click
'定义字符型变量
Dim sTemp As String
    '判断“用户ID”和“密码”文本框是否为空
    If IsNull(Me![用户ID]) Then
        MsgBox "请输入“用户ID”！", vbInformation, "输入用户ID"
        Me![用户ID].SetFocus
    ElseIf IsNull(Me![密码]) Then
        MsgBox "请输入登录密码！", vbInformation, "输入密码"
        Me![密码].SetFocus
    Else
        '使用DLookup函数从“系统用户”数据表中搜索当前“用户ID”对应的“密码”
        sTemp = DLookup("密码", "系统用户", "用户ID = '" & Me![用户ID] & "'")
        '判断STemp变量是否为空
        If IsNull(sTemp) Then
            DoCmd.Close , , acSaveNo
        Else
            '判断输入的“密码”与从“系统用户”数据表中搜索出的值是否相等
            If CStr(Me![密码]) = sTemp Then
                '把当前窗体中“用户ID”文本框值赋予UserID变量
                UserID = Me![用户ID]
                '关闭窗体
                DoCmd.Close , , acSaveNo
                '使用DoCmd对象的OpenForm方法打开“主界面”窗体
                DoCmd.OpenForm "主界面", acNormal, , , , acWindowNormal
            Else
                '如果密码不对，则弹出“密码错误”窗口
                MsgBox "您输入的密码不正确！", vbCritical, "密码错误"
                Me.Requery     '刷新“用户登录”窗体
                Me![密码].SetFocus
            End If
        End If
    End If
Exit_用户登录_Click:
    Exit Sub
Err_用户登录_Click:
    MsgBox Err.Description
    Resume Exit_用户登录_Click
End Sub