Visual Basic - Comor generar por codigo una busquedad en el formulario dw.ventaa en vb6 y acces

Private Sub txtcodi_Change()

 With Rsproductos

  .Find " CODIGOP ='" & Trim(txtcodi.Text) & "'"

 If .BOF Or .EOF Then

     .Requery

    !codigop = txtcodi.Text

 With RSventas

 If .BOF Or .EOF = True Then

    .Requery

    .AddNew

    !codigo = txtcodi.Text

    !DESCRIPCION = txtarticulo

    !CANTIDAD = txtcanti

    !DESCUENTO = txtdescuento

    !PRECIO = txtprecio

    !total = txttotal

    !GRAVADO = Val(txtiva.Text)

 End If

 End With

 End If

 End With

End Su

Private Sub cmdguardar_Click()

If txtcodigo.Text = "" Then MsgBox "el campo usuario esta vacio", vbInformation, "     AVISO  ": txtcodigo.SetFocus: Exit Sub

If txtcosto.Text = "" Then MsgBox "el campo clave esta vacio", vbInformation, "     AVISO  ": txtcosto.SetFocus: Exit Sub

If txtventa.Text = "" Then MsgBox "el campo puesto esta vacio", vbInformation, "     AVISO  ": txtventa.SetFocus: Exit Sub

If txtproducto.Text = "" Then MsgBox "el campo puesto esta vacio", vbInformation, "     AVISO  ": txtproducto.SetFocus: Exit Sub

If txtuti.Text = "" Then MsgBox "el campo puesto esta vacio", vbInformation, "     AVISO  ": txtuti.SetFocus: Exit Sub

If txtcodigo.Text = "" Then MsgBox "el campo usuario esta vacio", vbInformation, "     AVISO  ": txtcodigo.SetFocus: Exit Sub

With Rsproductos

.Requery

.Find "CODIGOP='" & Trim(txtcodigo.Text) & "'"

If .BOF Or .EOF Then

     .Requery

     .AddNew

        !codigop = txtcodigo.Text

        !PRODUCTO = txtproducto

        !costo = txtcosto.Text

        !UTILIDAD = txtuti.Text

        !subtotal = txtsubt.Text

        !VENTA = txtventa.Text

        !exento = 0

        !GRAVADO = Val(txtcosto) * Val(txtimp) / 100

        !IMPTOTAL = Val(txtcosto) * Val(txtimp)

        .Requery

        .Update

        txtcosto = ""

        txtimp = ""

        txtuti = ""

        txtsubt = ""

        txtventa = ""

        txtproducto = ""

        cmblista = ""

        txtcosto.SetFocus

         Else

          MsgBox " CODIGO YA EXITE", vbInformation, "  CODIGO"

          txtcodigo.SetFocus

          txtcodigo.SelStart = 0

          txtcodigo.SelLength = Len(txtcodigo.Text)

            Exit Sub

          End If

           End With