With adoBands.Recordset
    .AddNew
    txtFrst.Text = InputBox("Enter FIRST NAME")
    txtLst.Text = InputBox("Enter LAST NAME")
    txtBal.Text = InputBox("Enter BALANCE")
    txtUser.Text = strUser
.Update
End With

cmdpro.Enabled = True