recupero dati

[TittyMail]

Ciao il seguente codice recupera i dati in un db(quello che dovrebbe fare)
Quando clikko su un pulsante in una maschera di access mi da la finestrella del trova nel documento.
Poi ho notato che nel ciclo non entra. Come se il recordset fosse vuoto!!!
Aiutoooooooooo


Dim sQuery As String
Dim Conn As Connection
Dim rs As Recordset






If (Form_Ricerca.txtRicOggetto.Value <> "") Then
oggetto = Form_Ricerca.txtRicOggetto.Value
sQuery = "Select Oggetto,Struttura,Data,Appunto1,Appunto2,LinkDoc,d ata " & _
" from Appunto where Oggetto like '%" & oggetto & "%'"


Set rs = CurrentDb.OpenRecordset(sQuery)

Do While Not rs.EOF
MsgBox "in ciclo"
Form_Ricerca.ListView.Value = rs("Oggetto") & "," & rs("Struttura") & "," & rs("Data")
' Debug.Print rs("Oggetto")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Else
MsgBox "Inserire l'oggetto di ricerca"
End If

[MMarzia]

linguaggio e versione?
ti ricordo che, come da regolamento, vanno sempre indicati nel titolo