Ciao a tutti!
non riesco a visualizzare in una casella di riepilogo i dati ottenuti da una query
questo è il listato:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
ric = InputBox("Titolo:", "Ricerca per Titolo")
SQL = "SELECT * FROM Lista WHERE titolo LIKE '%" & ric & "%'"
rs.Open SQL, conn, 3, 3
If rs.EOF Then
MsgBox "Nessun brano trovato!"
Titolo.Caption = "Nessun brano trovato..."
Autore.Caption = "Nessun brano trovato..."
Else
Titolo.Caption = rs![Titolo]
Autore.Caption = rs![Autore]
Elenco.Visible = True
Me.Elenco.RowSource = SQL
Me.Elenco.Requery
End If
ma non mi visualizza nulla nella casella di riepilogo..grazie![]()