部门ID 员工ID

原来是这样生成的：

部门ID    员工ID    

adm        adm01

ac         ac02

pmc        pmc03

现在想达样的目的：

部门ID      员工ID     

ADM         ADM01

AC          AC01

PMC         PMC01

ADM         ADM02

AC          AC02

PMC         PMC02

。。。。。。请问高手要怎样写代码才能完成这个功能

原代码：
Private Sub 部门ID_LostFocus()

'定义部门ID变量
Dim DEPID As String
'定义用于循环的整型变量
Dim i As Integer

'定义字符型变量
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

          
End Sub