Ayuda al tratar hacer consulta en visual basic

[Ulfrheimr]

Bueno, es mi primera pregunta, estoy trabajando en visual studio y al hacer una busqueda en una base de datos de access (base.accdb) conectada al dsn me genera errores...

Cuando trato de comparar lo que tiene un textbox con el campo de la base me dice que es error de resolución de sobrecarga porque la funcion 'fields' no acepta ese número de argumentos, el código es:



Public Class Form1
Dim Conexion As ADODB.Connection
Dim Tabla As ADODB.Recordset
Dim Numero As Integer, Bandera As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Conexion = New ADODB.Connection
Tabla = New ADODB.Recordset
Conexion.Open("dsn=base")
Tabla.Open("aaa", Conexion, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Numero = Val(TextBox1.Text)
If Numero > 0 Then
Bandera = False

With Tabla
If .BOF = False And .EOF = False Then .MoveFirst()

Do While Not .EOF
Numero = !precio /AQUI ME MARCA EL ERROR
.MoveNext()
Loop

If Bandera = False Then
.AddNew()
!precio = TextBox1.Text //Y AQUI TAMBIEN
.Update()
MsgBox("Datos almacenados", MsgBoxStyle.Information, "AVISO")

End If
End With
Else
MsgBox("Meter datos", MsgBoxStyle.Information, "AVISO")
End If

End Sub
End Class



Agradezco de antemano su ayuda, talvez hay varias cosas que estoy haciendo mal, pero es un tipo de autoaprendizaje...