跪求各位帮帮我，这是为什么呢？问题是程序运行的时候，提示方法和数据成员未定义

[kjgfs]

Option Compare Database
Option Explicit

Private Sub cmdEnter_Click()
On Error GoTo err_cmdlogin_click
Dim rs As New ADODB.Recordset
Dim str As String
Dim num As Integer
Dim Loginflag As Boolean
str = "select 系统密码.ID from 系统密码 where 系统密码.ID='" & Me.用户名称
str = str & "'and 系统密码.用户密码='" & Me.用户密码 & " '"
str rs = getrs(str)
num = rs.RecordCount
If IsNull(Me.用户名称) Then
MsgBox ("请输入用户名称")
ElseIf IsNull(Me.用户密码) Then
MsgBox ("请输入用户密码！")
ElseIf num <> 1 Then
MsgBox (" 没有这个用户，或者密码错误！")
Else
Me.Visible = False
Loginflag = True
DoCmd.OpenForm "切换面板"
End If
exit_cmdlogin_click
Exit Sub
err_cmdlogin_click
MsgBox (Err.Description)
Resume exit_cmdogin_click
End Sub
Private Sub cmdExit_click()
On Error GoTo err_cmdclose_click
DoCmd.Close
exit_cmdcose_click
Exit Sub
err_cmdclose_click
MsgBox Err.Description
Resume exit_cmdclose_click
End Sub
Private Sub From_load()
Me.用户名称 = "zhangsong"
Me.用户密码 = "123456"
End Sub

问题是程序运行的时候，提示方法和数据成员未定义，请问这是为何呢？

[kjgfs]

调试中停在以下程序的：“用户名称”提示方法和数据成员为定义 str = "select 系统密码.ID from 系统密码 where 系统密码.ID='" & Me.用户名称

[关工]

你没把me表加到from后面。 str = "select 系统密码.ID from 系统密码, me where 系统密码.ID='" & Me.用户名称

[ACMAIN_CHM]

调试中停在哪一句？

[kjgfs]

我按照您说的方法做了，还是出现提示“用户名称”提示方法和数据成员为定义，前辈，请问这是为什么呢？

[ACMAIN_CHM]

单步调试，检查 str 的实际变量内容是什么。