自己解决了！

Dim oItem As Variant
Dim iCount As Integer
iCount = 0


If Me!lb.ItemsSelected.Count <> 0 Then
For Each oItem In Me!lb.ItemsSelected
GDBHFR = Me!lb.ItemData(oItem)
GDBHFRGLJG = dmTHb("sm1", "user", GDBHFR)
DoCmd.SetWarnings False
strSQL = "INSERT INTO [GDb](id,bt,xqr,XQRGLJG,xqnr,xqsj,hfr,HFRGLJG,hfnr,hfsj,zt) VALUES ('" & GDBID & "','" & GDBBT & "','" & GDBXQR & "','" & GDBXQRGLJG & "','" & GDBXQNR & "','" & GDBXQSJ & "','" & GDBHFR & "','" & GDBHFRGLJG & "','" & GDBHFNR & "', '" & GDBHFSJ & "','" & GDBZT & "')"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
    
Next oItem
        
Me!Comx.SetFocus
Me!ComA.Enabled = False
MsgBox "派单处理成功!", 0 + 48, Rmc
Vbh = ""


Else
MsgBox "请选择协作人员!", 0 + 48, Rmc
Exit Sub  'Nothing was selected
End If