Error no coinciden tipos

[Tet0]

bueno ese es el error que me da cuando intento insertar datos en una tabla tengo la sentencia sql

rs1.Open "insert into usuario(Nacionalidad, Cedula, Nombre, Apellido, Telefono, Direccion, Edad, Fnacimiento, Fregistro) Values('" & Combo1.List(Combo1.ListIndex) & "', '" & Text1.Text & "', '" & Text2.Text & "', '" & Text3.Text & "', '" & Text4.Text & "', '", Text5.Text & "', " & Calcular_Edad(DTPicker1) & ", #" & DTPicker1.Value & "#, #" & Now & "#) order by Cedula asc", cnn, adOpenKeyset, adLockOptimistic

la tabla es en access

[valentino_m]

hola amigo tu ejemplo es erroneo, segun mi estilo de programacion deberias declarar una variable de tipo comando, el rs1 se utiliza para traer datos de una tabla vista o lo que sea, no para insertar, mira te voy a dar un ejemplo sensillo

dim Comando as New Commnad
dim Cadena as string

Cadena = "Insert INTO Tabla1(Codigo,Descripcion) VALUES ('" & txtcodigo & "','" & txtdescripcion & "')"
comando.comandType = adcomandtext 'algo asi era, es la ante ultima que se lista cuando realizas el =
comando.commandtext = cadena
comando.execute

espero te sirva y haberme explicado bien, saludos

[zxs23]

Que dice el error.
No es necesario utilizar comandos con open tambien se puede ejecutar sql's