Limpiar Textbox evento change

[t0n1]

Perdón por no poner el código. Acá está la multiplicación dentro del textbox:

Private Sub txtCantidaddehoras_Change()

txtSueldoacobrar.Text = txtCantidaddehoras.Text * 5

End Sub


Y acá el alta del registro con la limpieza de los textbox posteriormente donde aparece el error en la línea de la limpieza del txtCantidaddehoras que me vuelve a llamar la sub y me aparece el error:

sql = "select * from Movimientos where DNI = '" & txtDni.Text & "'"
If Not Conectar() Then Exit Sub
Set Rs = Cn.Execute(sql)
If Rs.EOF Then
sql = " insert into Movimientos (Apenom, DNI, antiguedad, Nacionalidad, CantidadHoras, SueldoACobrar) values ( '" & txtNombredelempleado.Text & "', " & txtDni.Text & ", " & txtAntiguedad.Text & ", '" & cmbNacionalidad & "', " & txtCantidaddehoras & ", " & txtSueldoacobrar.Text & ")"
End If


MsgBox "Registro agregado"
txtNombredelempleado.Text = ""
txtDni.Text = ""
txtAntiguedad.Text = ""
cmbNacionalidad = ""
txtCantidaddehoras.Text = ""
txtSueldoacobrar.Text = ""
txtNombredelempleado.SetFocus