Cargar datos de access en excel vba

E., qusiiera que me ayuden en algo que me esta causando problemillas, tengo una BD en access en donde quisiera que desde una columna de la tabla quisiera que se cargue dos datos en un combo, tengo el siguiente código:

Sub BuscarAbg()
        Dim nombre As String
        UserForm1.TXTDE.Clear
        Set cn = New ADODB.Connection
        Set RsAbg = New ADODB.Recordset
        nombre = ThisWorkbook.Path & "\BD_2017.accdb"
            cn.Open "provider=microsoft.ACE.OLEDB.15.0; " & "data source=" & nombre & ";"
                RsAbg.ActiveConnection = cn
                RsAbg.CursorType = adOpenStatic
                RsAbg.LockType = adLockOptimistic
                RsAbg.CursorLocation = adUseClient
                StrAbg = "NOMBRE_1 '" & " " & "'APE_PATERNO" 'Aqui concateno dos campos de access
                RsAbg.Open "SELECT " & StrAbg & " FROM ADMINISTRATIVO"
                    Do While Not RsAbg.EOF()
                        UserForm1.TXTDE.AddItem RsAbg("StrAbg")
                        RsAbg.MoveNext
                    Loop
           Set RsAbg = Nothing
           cn.Close
           Set cn = Nothing
End Sub

Al ejecutar me manda un error el cual no se solucionarlo, quisiera que me ayuden por favor, Muchas Gracias! =D