Como buscar varios registros a la ves de access desde excel

Tengo una hoja en excel llamada resumen y una base de datos en access llamada nacional,

En la hoja de excel tengo una macros que me busca cualquier registro que ingrese con tal de que este en la base de datos access me encuentra el registro.

Pero quiero ingresar 500 registro a la vez en la hoja de consulta de excel para que me aparezcan todos los 500 registros completos con su primer y segundo nombre, y su primer y segundo apellido y también la fecha de nacimiento

Esta es el código de la macros.

Sub consultarAccess()
    Dim cn As Object
    Dim datos As Object
    Dim consultaSql As String
    Dim conexion As String
    Dim cont As Long
    Dim campo1 As String
    Dim datocampo1 As String
    Dim complementoBusqueda1 As String
    Dim tipoBusqueda As String
    tipoBusqueda = Cells(1, 4)
    campo1 = Cells(12, 4)
    datocampo1 = Cells(13, 4)
    If campo1 <> "IDENTIDAD" Then
        datocampo1 = "'" & datocampo1 & "'"
    End If
    If Len(tipoBusqueda) = 0 Or Len(campo1) = 0 Or Len(datocampo1) = 0 Then
        Exit Sub
    End If
    If tipoBusqueda = "EXACTA" Then
        complementoBusqueda1 = " = "
    Else
        complementoBusqueda1 = " like "
    End If
    Set cn = CreateObject("ADODB.Connection")
    conexion = "provider=microsoft.ACE.OLEDB.12.0;" & _
            "Data source=C:\Users\E1\Desktop\base de datos access x excel\BASE DE DATOS\BASE DE DATOS 2\Database3.accdb"
    consultaSql = "select * from NACIONAL where " & campo1 & complementoBusqueda1 & datocampo1
    cn.Open conexion
    Set datos = cn.Execute(consultaSql)
    cont = 13
    Do While Not datos.EOF
        Cells(cont, 5) = datos.Fields(2)
        Cells(cont, 6) = datos.Fields(3)
        Cells(cont, 7) = datos.Fields(4)
        Cells(cont, 8) = datos.Fields(5)
        Cells(cont, 9) = datos.Fields(7)
        cont = cont + 1
        datos.MoveNext
    Loop
    datos.Close
    Set datos = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Por favor si alguno conoce otra forma de buscar datos de access desde excel pido que me sea comunicado.