Access - Problema con insert

para empesar todo los datos de la tabla son string y cuando agrego me sale un problema rs.close y esto solo me deja meter el primer dato aLGUIEN ME PUEDE DECIR CUAL ES EL DRAMA Y SI ME FALTA ALGO

Private Sub Comando13_Click()
Set rs = New ADODB.Recordset
Set cn = Application.CurrentProject.Connection
rs.Open "INSERT INTO Empleados(Rut_empleado, Nom_emp, ape_emp)VALUES ('" & Me.Texto6.Value & "', " & Val(Me.Texto2.Value) & " , " & Val(Me.Texto4.Value) & " )", cn, adOpenDynamic, adLockPessimistic
rs.EOF

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Un colega me recomedó para ejecutar una sql utilizar "docmd.runsql strsql" donde strsql es tu insert. Prueba a ver. no tendría porque fallarte.
Un saludo

No te logro entender, ya que lo inserte pero me sigue saliendo error . Si me pouede dar mayor especificacion seria mejor