Galera, mais uma duvida...
estou usando o código abaixo para fazer uma consulta.
'=======================================
'Busca o produto solicitado pelo usuario
'e exibe no Grid
'=======================================
Private Sub cmdbusca_Click()
rsprod.Index = "produto"
If txtCodigo = Empty Then
MsgBox "Insira o produto desejado !", vbOKOnly + vbInformation, "Informação"
txtCodigo.SetFocus
Exit Sub
Else
Set rsprod = dbprod.OpenRecordset("Select * from produto where (produto like '" & txtCodigo & "')")
txtCodigo.Text = ""
txtCodigo.SetFocus
Grade 'Exibe o resultado no grid
End If
End Sub
mas acontece que na segunda pesquisa simultanea, acontece o erro:
Runtime erro '3251' -Operation is not supported for this type object.
alguém sabe o que é isso?
