VBA出错

请帮帮忙。。。

实时错误'3001' 参数类型不正确或不在可以接受的范围内,或与其他参数冲突

Private Sub 部门ID_LostFocus()

'定义用于循环的整型变量
Dim i As Integer
'定义字符型变量
Dim STEMP As String
'定义数据集变量
Dim RS As ADODB.Recordset
'定义部门ID变量
Dim DEPID As String

'为定义的数据集变量分配空间
Set RS = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STEMP = "Select * From 员工基本资料"
'打开“员工基本资料表”数据表
RS.Open STEMP, CurrentProject.Connection, adOpenKeyset, adLockOptimisti
'查与部门之部门名称相对应的部门ID
DEPID = DLookup("部门ID", "部门表", "[部门名称]= '" & Me![部门名称] & "'")

    '根据“系统用户”数据表中的记录数量来自动生成“用户ID”
    Select Case RS.RecordCount
        Case 0 To 9
            Me![员工ID] = "DEPID" & "000" & RS.RecordCount
        Case 10 To 99
            Me![员工ID] = "DEPID" & "00" & RS.RecordCount
        Case 100 To 999
            Me![员工ID] = "DEPID" & "0" & RS.RecordCount
        Case 1000 To 9999
            Me![员工ID] = RS.RecordCount
    End Select
    '释放系统为Rs数据集分配的空间
    Set RS = Nothing

End Sub