1) Devi indicare linguaggio e versione

2) Quella riga è sbagliata ... dovrebbe essere

codice:
Dim qr_ricercaragionesociale As String = "SELECT * FROM tblClienti WHERE [ragione sociale] = '" & txtRicercaRagioneSociale.Text & "'"