Problema con recordset

[Neuron_376]

Hay varias cositas en tu codigo de conexion que no son necesarias, o resultad rebundantes, te recomiendo usar este metodo:

'Abrir conexion con la base de datos
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "dsn=tuDSNName;uid=tuUserName;pwd=tuUserPasswo rd"

'Consultar a la base de datos.
Sqltxt = "SELECT * FROM Tabla1"
set rs = oConn.Execute(Sqltxt)

'Ahora rs contiene todos los datos que necesitas
Sqltxt = "INSERT into Tabla1 values(" _
& "'" & Cstr(request.form("txtAsientoDe") & "'" _
& "'" & Cstr(request.form("txtDiari") & "'" _
& "'" & Cstr(request.form("txtData") & "'" _
& "'" & Cstr(request.form("txtNumDe") & "'" _
& "'" & Cstr(request.form("txtNumA") & "'" _
& "'" & Cstr(request.form("txtDesc") & "'" _
& "'" & Cstr(request.form("txtIntroduit") & "'" _
& ")"

'Liberar memoria, por que ya no necesitamos los valores en el Recordset
rs.Close()
set rs = nothing

'Ejecutar el SQL para insertar el campo
oConn.Execute(Sqltxt)

'Cerrar conexion a la base de datos
oConn.Close()
set oConn = nothing

Felicidades por usar el = nothing, eso te asegura que liberas cualquier rastro de la conexion a la base de datos o a la fila de resultados, y claro liberar el total de la memoria que estaba usando esa variable, eso es muy bueno a la larga.

Bueno, mi sintaxis no es del todo correcta porque no conozco el tipo de datos que estas manejando, la funcion Cstr te asegura que estas mandando una cadena, esta entre comillas ( ' ) porque es dato tipo cadena, el insert, en cuestion de values, tal vez antes ocupes los nombres de los campos, dependiendo de la estructura de la tabla, pero bien, esa es la mejor manera de crear la conexion, todo es mas limpio, debesras hacer muchas pruebas.

Pero de esa forma lo que logras es un codigo mas compacto y mas limpio.

Espero que te sirva

Suerte!!