scusa oregon io li visualizzo cosi forse sbaglio ma va
Sub visualizzatutti()
nome1 = App.Path & "\carime.mdb"
nome2 = App.Path & "\roma.mdb"
nome3 = App.Path & "\cariplo.mdb"
Rs.Close
Rs.Open QR, Cn, adOpenDynamic, adLockBatchOptimistic
Set Db = OpenDatabase(nome1, False, False, pass)
Data4.DatabaseName = Db.Name
Set Data4.Recordset = Db.OpenRecordset("select * from assegni where datascadenza >= #" & Format(datai, "yyyy/mm/dd") & "# and datascadenza <= #" & Format(dataf, "yyyy/mm/dd") & "# order by datascadenza ")
Do Until Data4.Recordset.EOF
Rs.AddNew
Rs!codiceassegno = Data4.Recordset!codiceassegno
Rs!Destinatario = Data4.Recordset!Destinatario & " Nr. " & Data4.Recordset!numeroassegno
Rs!dataemissione = Data4.Recordset!dataemissione
Rs!valoreassegno = Data4.Recordset!valoreassegno
Rs!Datascadenza = Data4.Recordset!Datascadenza
Rs.Update
Data4.Recordset.MoveNext
Loop
Data4.Recordset.Close
Db.Close
Set Db = OpenDatabase(nome2, False, False, pass)
Data2.DatabaseName = Db.Name
Set Data2.Recordset = Db.OpenRecordset("select * from assegni where datascadenza >= #" & Format(datai, "yyyy/mm/dd") & "# and datascadenza <= #" & Format(dataf, "yyyy/mm/dd") & "# order by datascadenza ")
Do Until Data2.Recordset.EOF
Rs.AddNew
Rs!codiceassegno = Data2.Recordset!codiceassegno
Rs!Destinatario = Data2.Recordset!Destinatario & " Nr. " & Data2.Recordset!numeroassegno
Rs!dataemissione = Data2.Recordset!dataemissione
Rs!valoreassegno = Data2.Recordset!valoreassegno
Rs!Datascadenza = Data2.Recordset!Datascadenza
Rs.Update
Data2.Recordset.MoveNext
Loop
Data2.Recordset.Close
Db.Close
Set Db = OpenDatabase(nome3, False, False, pass)
Data3.DatabaseName = Db.Name
Set Data3.Recordset = Db.OpenRecordset("select * from assegni where datascadenza >= #" & Format(datai, "yyyy/mm/dd") & "# and datascadenza <= #" & Format(dataf, "yyyy/mm/dd") & "# order by datascadenza ")
Do Until Data3.Recordset.EOF
Rs.AddNew
Rs!codiceassegno = Data3.Recordset!codiceassegno
Rs!Destinatario = Data3.Recordset!Destinatario & " Nr. " & Data3.Recordset!numeroassegno
Rs!dataemissione = Data3.Recordset!dataemissione
Rs!valoreassegno = Data3.Recordset!valoreassegno
Rs!Datascadenza = Data3.Recordset!Datascadenza
Rs.Update
Data3.Recordset.MoveNext
Loop
Data3.Recordset.Close
Set DataGrid1.DataSource = Rs
Rs.Sort = "[" & Rs(3).Name & "]" 'ordina secondo il contenuto della colonna
End Sub

ciao