ADO 实现ACCESS文本型自动连续编号

Option Compare Database
Option Explicit
Dim objrs1 As ADODB.Recordset
Dim zdm()   '定义动态数组

Private Sub Form_Load()

   Set objrs1 = New ADODB.Recordset
   objrs1.Open "雇员", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   ReDim zdm(objrs1.Fields.Count - 1)
   Dim i
   For i = 0 To objrs1.Fields.Count - 1   '拾取数据库字段名及个数
      zdm(i) = objrs1.Fields(i).Name
   Next

   If objrs1.AbsolutePosition <> adPosUnknown Then   '空数据库
      CmdEnd_Click   '移动数据指针到底部且赋值
      Command18.Visible = True
   Else
      Command13.SetFocus
      Label17.Caption = "当前数据库共有 0 条记录，当前记录是第 0 号"
      CmdTop.Enabled = False
      CmdPrevious.Enabled = False
      CmdNext.Enabled = False
      CmdEnd.Enabled = False
      Command18.Visible = False
   End If
End Sub

Private Function K