Public Sub fill_Position(cmb As ComboBox, Optional boAddEmpty As Boolean)
Dim sSQL As String, rs As ADODB.Recordset

    On Error GoTo L_Err
    cmb.Clear
    Set rs = New ADODB.Recordset
    sSQL = "select * from tblPosition order by Name"
    rs.Open sSQL, cnn

    If boAddEmpty Then cmb.AddItem "-"
    If Not rs.EOF Then
        If Not rs.BOF Then rs.MoveFirst
        Do While Not rs.EOF
            cmb.AddItem rs("Name")
            cmb.ItemData(cmb.NewIndex) = rs("ID")
            rs.MoveNext
        Loop
    End If
    rs.Close
L_Next: If cmb.ListCount Then cmb.Text = cmb.List( 0 )

L_Exit: Set rs = Nothing: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.NUMBER & ")", vbExclamation, "fill_Position": GoTo L_Exit
End Sub