Visual Basic - error con access 2007 y vb6 -ADO

tengo un problema no guarda en al BD de access este es el codigo

Public nomb, edad, sexo As String
Dim rec As New ADODB.Recordset, cnx As String
Dim descu, bonif As Double

Private Sub Cmdgrabar_Click()

Dim rsem As ADODB.Recordset

nomb = Val(Txtnombre.Text)
edad = Val(Txtedad.Text)
suelbr = Val(TxtsueldoBruto.Text)

Call Descuentos
Call Bonificaciones

Do While Not rec.BOF
rsem.AddNew
rsem!nombre = nomb
rsem!edad = edad
rsem!sexo = Optsexo.Value = True Or Optsexo1.Value = True
rsem!sueldobruto = suelbr
rsem!descuento = Desc
rsem!bonificacion = bonif
rsem!sueldoneto = sueldo - Desc + bonif
rsem.Update
rec.MoveNext
Loop

Do While rec.RecordCount > 0
rec.MoveFirst
rec.Delete
Loop


End Sub

Private Sub CmdLeer_Click()
FrmEmpleado.Show
End Sub

Private Sub CmdNuevo_Click()
Txtnombre.Text = ""
Txtedad.Text = ""
TxtsueldoBruto.Text = ""
Txtnombre.SetFocus

End Sub

Private Sub Form_Load()

cnx = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=ejercicio.accdb;Persist Security Info=False"

End Sub


Public Sub Descuentos()

suelbr = Val(TxtsueldoBruto.Text)
If Optdiez.Value = True Then
Desc = suelbr * 0.1
ElseIf Optquince.Value = True Then
Desc = suelbr * 0.15
ElseIf Optveinte.Value = True Then
Desc = suelbr * 0.2
ElseIf Optcuarenta.Value = True Then
Desc = suelbr * 0.4
End If

End Sub

Public Sub Bonificaciones()
suelbr = Val(TxtsueldoBruto.Text)
If OptCTS.Value = True Then
bonif = suelbr * 0.08
ElseIf OptAsicFami.Value = True Then
bonif = suelbr * 0.1
ElseIf Optotros.Value = True Then
bonif = suelbr * 0.02
End If
End Sub