despues de un rato de comentarlo con el usuario reel, encontramos la solucion:
declare 2 variables:
Dim FechaOperacion2 As Date
Dim FechaVencimiento As Date
y cree 2 labels:
lblInteres, lblDias
y la operacion la hice antes d ela insercion de esta manera:
FechaOperacion2 = txtFechaOperacion
FechaVencimiento = txtFechaVencimiento
lblDias = FechaVencimiento - FechaOperacion2 + 1
lblInteres = txtMonto.Text * 0.04 * lblDias / 30
la insercion final fue:
Cnn.Execute "Insert into Operaciones values(" + Str(lblNOperacion) + ",'" + Trim(lblRut) + "','" + Trim(txtFechaOperacion) + "'," + Str(txtCuenta) + ",'" + Trim(txtTitular) + "'," + Str(txtNDocumento) + ",'" + Trim(txtFechaVencimiento) + "'," + Str(txtMonto) + "," + Str(lblClaveDocumento) + ",'Operacion','" + Trim(lblBanco) + "','Operacion','" + Trim(txtRutTercero) + "'," + Str(lblInteres) + ")"
