Ayuda Urgente!

[gorita]

tambn necesito ayuda ya k me aparece este error
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.

Private Sub cmd_guardar_Click()
On Error GoTo e

sql = "insert into paciente([rut],nombre,app,apm,direccion, cod_comuna, cod_ciudad, f_nacimiento, telefono, celular) values( '"
sql = sql & txtrut
sql = sql & "','"
sql = sql & txtnombre
sql = sql & "','"
sql = sql & txtapp
sql = sql & "','"
sql = sql & txtapm
sql = sql & "','"
sql = sql & txtdireccion
sql = sql & "','"
sql = sql & cbocomuna.ItemData(cbocomuna.NewIndex)
sql = sql & "','"
sql = sql & cbociudad.ItemData(cbociudad.NewIndex)
sql = sql & "','"
sql = sql & txt_fecha_nac
sql = sql & "','"
sql = sql & txttelefono
sql = sql & "','"
sql = sql & txtcelular
sql = sql & "')"
cnn.BeginTrans
cnn.Execute sql

e:
If Err.Number <> 0 Then
MsgBox Err.Description
cnn.RollbackTrans
Err.Clear
Else
MsgBox "ingresado Correctamente"
cnn.CommitTrans
End If
end sub