Il primo codice mi server per cercare dei dati in tabella, il risultato della select lo devo passare ad un altra form (secondo codice) ma sul "sRs = rs.GetString(adClipString)" mi dice che il record è l inizio o la fine del file o è stato eliminato.
quando visualizzo il risultato della query con il MsgBox i dati sono tutti corretti

sRs è dichiarato come Public sRs As String

qualche suggerimento.......

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

Set rs = CurrentProject.Connection.Execute(sSql)

MsgBox rs.GetString(adClipString)

sRs = rs.GetString(adClipString)

MsgBox sRs


stDocName = "Elenco Clienti tramite Ricerca"
DoCmd.OpenForm stDocName, acNormal, "", "", acAdd, acNormal
codice:
Option Compare Database

Private Sub Form_Current()

Me.RecordSource = sRs

End Sub