CONSULTA POR LETRAS

SELECT * FROM TABELA WHERE CAMPO LIKE [ô]CRITERIO[ô]%

Citação:

:

SELECT * FROM TABELA WHERE CAMPO LIKE [ô]CRITERIO[ô]%

   Public Sub FiltrarRegistro()
        Using cn As OleDbConnection = ConexaoBD()
            Try
                cn.Open()
                Dim sql As String = [Ô]Select * From Clientes Where nome Like [ô][Ô] & btnA.Text & [Ô]%[ô][Ô]
                Dim cmd As New OleDbCommand(sql, cn)
                Dim da As New OleDbDataAdapter(cmd)
                Dim dt As New DataTable
                da.Fill(dt)
                dgvListaClientes.DataSource = dt
                Call calcularRegistros()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                cn.Close()
            End Try
        End Using
    End Sub