ho provato a modificare la query con * ma non è cambiato nulla:

codice:
Dim qr_ricercaragionesociale As String = "SELECT * FROM tblClienti WHERE [ragione_sociale] = '" & txtRicercaRagioneSociale.Text & "'"
Dim Cn As New OleDbConnection(connectionString)
Dim cmd As New OleDbCommand(qr_ricercaragionesociale, Cn)
Try
            Cn.Open()
            TblClientiDataGridView.DataSource = cmd.ExecuteReader
            Cn.Close()
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try