PROCURA NO BANCO DE DADOS COM O TEXTBOX

OMAR2011 18/05/2013 10:25:41
#423693

Private Sub txtcriterio_Change()
Set Tabela = New ADODB.Recordset
[ô]Tabela.Open [Ô]Select ProductId, ProductName, UnitPrice From Products where ProductId like [ô]%[Ô] & Val(txtcriterio.Text) & [Ô][ô][Ô], banco
Tabela.Open [Ô]Select ProductId, ProductName, UnitPrice From Products where ProductId =[Ô] & Val(txtcriterio.Text) & [Ô][Ô], banco
[ô]Set gridProdutos.DataSource = Tabela
If Not Tabela.EOF Then
txtCodigoProduto.Text = Tabela(0)
txtNomeProduto.Text = Tabela(1)
txtPrecoProduto.Text = Tabela(2)
Else
txtCodigoProduto.Text = [Ô][Ô]
txtNomeProduto.Text = [Ô][Ô]
txtPrecoProduto.Text = [Ô][Ô]
End If
[ô]Tabela.Close
[ô]Set Tabela = Nothing
End Sub

Pode fazer dos dois jeitos,Like ou igual.
Isto é de onde tirou o exemplo na qual postei.
Valeu.