执行SQL语句后出错

kingorwell

我想通过一个按钮创建一条考勤日期格式为YYYY-MM的约考勤记录
但是为什么当语句走到黄底字后，会出现“Bof 或Eof有一个是“真”，或者当前记录已被删除，所需的操作要求一个当前记录”的提示？难道：rst("员工姓名")引用的语法有错误吗？
Private Sub 创建考勤日期_Click()
On Error GoTo Err_创建考勤日期_Click
Dim AttDate, StrSQL, StaffName As String
Dim rst As ADODB.Recordset
AttDate = InputBox(" 请输入新考勤年月,格式2014-01 ")
StrSQL = Me.PositionSelector '用下拉列表中的岗位去选择班组群，以便创建一个群组内的人员月份考勤记录
Set rst = New ADODB.Recordset
With rst
    .ActiveConnection = CurrentProject.Connection
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "Select * from 岗位人员清单 where 岗位='strsql'"  '岗位人员清单由“员工姓名”及“岗位”两个字段构成
    Debug.Print StrSQL
    Debug.Print rst("员工姓名")
    Do Until rst.EOF
    StaffName = rst("员工姓名")
    rst.AddNew
        !年月 = AttDate
        !姓名 = StaffName
    .Update
C:\Users\000010\Desktop\Untitled-1.jpg

roych

SQL语句改下：
"Select * from 岗位人员清单 where 岗位='" & strsql & "'"

tmtony

还是要了解ADO语法的意义以及字符串的连接这些基础知识 才好调试代码