Oregon sto provando a correggere il codice ma non funziona.
posto per l'ultima volta le due funzioni di codice utilizzato, poi vedo di trovare un'altra soluzione. Grazie comunque per l'aiuto datomi.
Public Function Apici2(ByVal pStringa As String) As String
Apici2 = Replace(pStringa, "'", "''") & "*'"
End Function
Public Function cerca_parola()
Dim sql As String
If txt_cerca.Text = vbNullString Then
Set rs = DB.OpenRecordset("SELECT * FROM Programmi ORDER BY nomeprogramma")
Else
sql = "SELECT * FROM Programmi WHERE nomeprogramma LIKE '" & Apici2(txt_cerca.Text) Or "note LIKE '" & Apici2(txt_cerca.Text)
sql = sql & " ORDER BY nomeprogramma "
Set rs = DB.OpenRecordset(sql)
End If
End Function