MOSTRAR DATOS DE UNA TABLA DE ACCESS A LA CUADRICULA D EEXCEL

La idea es poder visualizar los datos que se encuentran en una tabla de una base de datos dela cuadricula de  Access a la cuadricula de Excel.

Programa el botón de consultar con el siguiente código.

Private Sub CommandButton2_Click()
Dim cs As String
    Dim sPath As String
    Dim sql As String
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    sPath = ThisWorkbook.Path & "\datos.accdb"
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

    Set cn = New ADODB.Connection
    cn.Open cs

    Set rs = New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
    End With

    sql = "select * from estudiantes"

    rs.Open sql, cn

    Range("C1").CopyFromRecordset rs

    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing

End Sub