SELECT EM DBF

 Dim StrParametro As String
        StrParametro = String.Empty
        If IsNumeric(TextBox1.Text) Then
            StrParametro = [Ô]CPF[Ô]
        Else
            StrParametro = [Ô]NOME[Ô]
        End If
        Dim oConn As New OleDbConnection()
        oConn.ConnectionString = [Ô]Provider=VFPOLEDB.1;Data Source=c:\BANCO;Extended Properties=dBase 5.0[Ô]
        oConn.Open()
        Dim oCmd As OleDbCommand = oConn.CreateCommand()
        oCmd.CommandText = [Ô]select * from CLIENTES where [Ô] & StrParametro & [Ô]  like  [ô][Ô] & TextBox1.Text & [Ô]%[ô][Ô]
        Dim dt As New DataTable()
        dt.Load(oCmd.ExecuteReader())
        oConn.Close()
        DataGridView1.DataSource = dt