Ayuda - Importar 2 tablas de access a archivo excel

Buenas noches.

Por favor, necesito de su ayuda, tengo una BDD en access y un archivo excel, lo que actualmente hago es importar una tabla de mi BDD a mi archivo excel en una determinada hoja, claro que lo que hago primero es borrar la información existente en mi excel.

Pero lo que ahora necesito es importar dos tablas (clientes y proveedores) de access a mi archivo excel.

Les envío el código que utilizo lineas debajo; pero aun no se omo hacer para que se puedan importar las dos tablas de access a mi excel .

Gracias por su ayuda.

''''''''''''''''''''''''''''''''' Inicio - Conexión de excel a access
‘borrar data existente
Sheets("Clientes").Select
Cells.Select
Selection.ClearContents
'Sub Importar_Access()
'elegir uno de estas dos rutas al archivo Access
'strDB = ThisWorkbook.Path & "\" & "db.mdb"
strDB = "C:\Reportes\BDD.accdb" 'si en otra carpeta
'nombre de la tabla del archivo Access
strTabla = "Clientes"
'crear la conexión
Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
'elegir uan de las conexiones para access 2003 o 2007
'datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
datConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source =" & strDB & ";"
'consulta SQL
strSQL = "SELECT * FROM " & strTabla & ""
recSet.Open strSQL, datConnection
'copiar datos a la hoja
Sheets("Clientes").Select
ActiveSheet.Cells(2, 1).CopyFromRecordset recSet
'copiar rótulos
lngCampos = recSet.Fields.Count
For i = 0 To lngCampos - 1
ActiveSheet.Cells(1, i + 1).Value = recSet.Fields(i).Name
Next
'desconectar
recSet.Close: Set recSet = Nothing
datConnection.Close: Set datConnection = Nothing
'End Sub
''''''''''''''''''''''''''''''''' Fin - Conexión de excel a access