Private Sub PopulacboMarcacao()
    Dim Conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sql As String
 
    Set Conn = New ADODB.Connection
    With Conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Banco_Dados.mdb"
        .Open
    End With
 
    sql = "SELECT DISTINCT DESLIGAMENTO_EMPRESA FROM [DESLIGAMENTO_EMPRESA]"
 
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = Conn
        .Open sql, Conn, adOpenDynamic, _
              adLockBatchOptimistic
    End With
 
    Do While Not rst.EOF
        If Not IsNull(rst(0).Value) Then
            cboMarcacao.AddItem rst(0).Value
        End If
        rst.MoveNext
    Loop
 
    ' Fecha o conjunto de registros.
    Set rst = Nothing
    ' Fecha a conexão.
    Conn.Close
 
End Sub
 
Private Sub UserForm_Initialize()
    Call PopulacboMarcacao
End Sub