Originariamente inviato da vr-claudio
Ciao ragazzi, vi posto subito il codice che utlizzo per caricare i dati di una tabella sola:

Sub Carica_Nomi()
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & "C:\...\DB.mdb"
.Mode = adModeRead
.Open
End With
Set rs = New ADODB.Recordset

strSQL = "SELECT * FROM TBL_NOMI"
rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly
Call Riempi_Lista(rs)
End Sub

[CUT]
E fin qui tutto bene, e se io dovessi legare due tabelle con gli stessi identici campi
ma con il nome della tabella diversa cioè: TBL_NOMI_1
Se veramente le due tabelle hanno uguale struttura ti basta fare una query UNION

codice:
strSQL = "SELECT * FROM TBL_NOMI"
strSQL = strSQL & " UNION "
strSQL = strSQL & "SELECT * FROM TBL_NOMI_1"