Dim cadena As String
cadena = InputBox("Enter the Title or topic of your interest, or just a word that you consider related." & vbCrLf & "We will search for matches with your entry within the database.", "Search by Title")
If Len(cadena) <= 1 Then
Adodc2.Refresh
DataGrid1.SelBookmarks.Add (DataGrid1.Bookmark)
Else
Adodc2.RecordSource = "Select * from tablaimagenes Where temas like '%" & cadena
end if