Error no coinciden tipos

[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