Problemas con un RecordSet

[bufy]

Hola

He hecho el siguiente código:

Dim dbinicio As Database
Dim regdbinicio As Recordset
Dim dbtransicion As Database
Dim regdbtransicion As Recordset
Dim sql As String



ChDir App.Path
Set dbinicio = OpenDatabase("inicio.mdb")
Set dbtransicion = OpenDatabase("transicion.mdb")

sql = "select * from articulo"
Set regdbinicio = dbinicio.OpenRecordset(sql)
While (Not regdbinicio.EOF)
sql = "insert into articulosvendidos values ('" & regdbinicio!cref
sql = sql + "','" & regdbinicio!detalle
sql = sql + "',0)"
dbtransicion.Execute (sql)
regdbinicio.MoveNext
Wend


Cuando lo ejecuto me da el siguienete error en la línea roja

"no coinciden los tipos de datos"

¿Alguien podría orientarme y decirme a que puede deberse este error?. Muchas gracias de antemano

Un saludo