Visual Basic para Aplicaciones - Cargar combobox de formulario excel de tabla de access

Private Sub UserForm_Initialize()

    Dim cn As Object

    Dim datos As Object

    Dim consultaSQL As String

    Dim conexion As String

    Set cn = CreateObject("ADODB.Connection")

    conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

        "Data Source=C:\Users\Miguel\Documents\pruebas.accdb" 'Aqui va la ruta de tu base de datos

    consultaSQL = "SELECT * FROM PRUEBA" 'Aqui va el nombre de la tabla access  ""OJO NO DE LA BASE DE DATOS OJO""

    cn.Open conexion

    Set datos = cn.Execute(consultaSQL)

    Do While Not datos.EOF

        Me.ComboBox1.AddItem datos.Fields(0)'aqui se carga la columna de la base access que se requiera(0 es la primer columna)

        datos.moveNext

    Loop

    datos.Close

    Set datos = Nothing

    cn.Close

    Set cn = Nothing

End Sub

Private Sub UserForm_Initialize()

    Dim cn As Object

    Dim datos As Object

    Dim consultaSQL As String

    Dim conexion As String

    Set cn = CreateObject("ADODB.Connection")

    rutaBase = "C:\BaseTS\BDAsis.accdb"

    conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data source =" & rutaBase

    consultaSQL = "SELECT DISTINCT Apellido FROM Tabla;"  ' DISTINCT antes del nombre de la columna rescata datos sin repetir

    cn.Open conexion

    Set datos = cn.Execute(consultaSQL)

    Do While Not datos.EOF

            Me.cmbAsignación.AddItem datos.Fields(0) ' columna es cero pa una columna

        datos.MoveNext

    Loop

    datos.Close

    Set datos = Nothing

    cn.Close

    Set cn = Nothing

End Sub