老问题，以部门生成员工ID

上次那位仁兄的方法，与之前没什么区别。问题未解决

问题：当在窗体中输入一部门ID时，员工据部门ID自动生成

原代码来为：

Private Sub 部门ID_LostFocus()      我段代码只能以员工基本资料的总表最大记录生成一个员工ID，不能以每部的最大记录生成员工ID

'定义部门ID变量                    原来效果为：部门ID    员工ID                  想达到目的 ： 员部门ID     工ID

'定义部门ID变量                                 ADM       ADM01                                   AMD          AMD01
Dim DEPID As String                             PMC       PMC02                                   PMC          PMC01    
'定义用于循环的整型变量                         AC        AC03                                    AC           AC01
Dim i As Integer                                ENG       ENG04                                   ENG          ENG01

'定义字符型变量
Dim STemp As String
'定义数据集变量                                 谢了
Dim rs As ADODB.Recordset

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

Me.员工ID = Null
Else

DEPID = DLookup("部门ID", "部门表", "[部门ID]= '" & Me![部门ID] & "'")
    '根据“部门表”数据表中的记录数量来自动生成“员工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] = EDPID & rs.RecordCount
    End Select
    '释放系统为Rs数据集分配的空间
    Set rs = Nothing
End If