Ho una form(form1) di ricerca la quale mi può trovare tramite una select più record. Utilizzo un pulsante che al click mi esegue la select e mi apre un altra form(Elenco Clienti tramite Ricerca) la quale deve contere i dati della select. La form2 ha una struttura tabellare.
Come posso visualizzare nella "Elenco Clienti tramite Ricerca" tutti i record che ho trovato tramite la select nella form1???

codice:
Private Sub Cerca_Cliente_Click()

Dim sSelect As String
Dim sSql As String
Dim sWhere As String
Dim stDocName As String
Dim stLinkCriteria As String

sSql = "SELECT Clienti.Cod_Cliente, Clienti.Cod_Progressivo, Clienti.Cognome, Clienti.Nome, Clienti.Città, Clienti.[Indirizzo 1], Clienti.[Indirizzo 2], Clienti.CAP, Clienti.[Telefono 1], Clienti.[Telefono 2], Clienti.Cellulare, Clienti.FAX, Clienti.Email, Clienti.[Data di Nascita], Clienti.Nazionalità, [Categoria Classe].[Categoria Classe], [Categoria Professionale].[Tipo categoria]FROM [Categoria Professionale] INNER JOIN ([Categoria Classe] INNER JOIN Clienti ON [Categoria Classe].Cod_classe = Clienti.Cod_Classe) ON [Categoria Professionale].cod_Categoria = Clienti.Cod_Categoria"

sWhere = ""

If Cognome <> "" Then
sWhere = sWhere & " Clienti.Cognome LIKE '" & Replace(Cognome, "'", "''") & "'"
End If

If Nome <> "" Then
If sWhere <> "" Then sWhere = sWhere & " AND "
sWhere = sWhere & " Clienti.Nome LIKE '" & Replace(Nome, "'", "''") & "'"
End If

If sWhere <> "" Then
sSql = sSql & " WHERE " & sWhere
End If

MsgBox sSql
Set rs = CurrentProject.Connection.Execute(sSql)

stDocName = "Elenco Clienti tramite Ricerca"
DoCmd.OpenForm stDocName, acNormal, "", "", acAdd, acNormal

End Sub