can i do this without text boxes

[dougvcd]

ok this bit of code reads textbox and updates the database but can i do it with out the text boxes using the fields from database in stead
not sure if this should be here or in database section
cheers
Doug

Private Sub Form_Load()
With Adodc1.Recordset
    Do Until Adodc1.Recordset.EOF
      If Adodc1.Recordset!currant = "Yes" Then
        txtTotal.Text = Format(Val(txtQuantity.Text) - (Date - CDate(txtFill.Text)) * Val(txtDose.Text), "00")
        .Update
      End If
      .MoveNext
    Loop
    .MoveLast
End With
End Sub