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

Sub Carica_15TORPOSANTIRIFLESSO(ByRef rs As ADODB.Recordset)
On Error Resume Next
Dim objItem As ListItem
Dim NumeroChar As Double
Dim i

MENU.LsVw1.ColumnHeaders.Clear
MENU.LsVw1.ListItems.Clear
MENU.LsVw1.View = lvwReport

MENU.LsVw1.ColumnHeaders.Add , , "ID", (MENU.LsVw1.Width / 10)
MENU.LsVw1.ColumnHeaders.Add , , "Nome", (MENU.LsVw1.Width / 9)
MENU.LsVw1.ColumnHeaders.Add , , "Cognome", (MENU.LsVw1.Width / 7.3)
MENU.LsVw1.ColumnHeaders.Add , , "Telefono", (MENU.LsVw1.Width / 15)

Do Until rs.EOF
Set objItem = MENU.LsVw1.ListItems.Add()
objItem.Text = rs!ID
objItem.SubItems(1) = rs!Nome
objItem.SubItems(2) = rs!Cognome
objItem.SubItems(3) = rs!Telefono


rs.MoveNext
Loop

End Sub

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

grazie
vr-claudio