Visual Basic - Error odbc Failed vb6

Hola....
Tengo un Problema en Vb6 al grabar informacion en acces me aparece
el error ODBC Failed al intentar enviar la informacion.
Estas son las lineas que Utiliso.
recFacturacion.AddNew
recFacturacion!Facturacion = CStr(lv.ListItems.Item(i).SubItems(8))
recFacturacion!Codigo_Cliente = CInt(lv.ListItems.Item(i))
recFacturacion!fecha = fecha
recFacturacion!Vendedor = recOpciones!Nombre
recFacturacion.Update

el error me aparece en recFacturacion.Update
El Campo de Facturacion en Acces esta No (Indexeado)
y los demas estan en Si(Con Duplicados)
Espero me Puedan Ayudar Gracias..........

hola, posiblemente tienes mala la coneccion, lo otro ocupas un listview en el llenas varias lineas o 1 sola

Set rs = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & tubasede datos & ";" & _
"Jet OLEDB:Database Password=laclave"

rs.Open "select * from latabla where tucodigo o clave = '" & text1.Text & "' ", cnn, adOpenStatic, adLockOptimistic, adCmdText

With rs
.AddNew
.Fields("facturacion") = CStr(lv.ListItems.Item(i).SubItems(8))
.Fields("codigo") = CInt(lv.ListItems.Item(i))
.Fields("fecha") = fecha
.Fields("vendedor") = Nombre
.Update
End With

si estas guardando a la bd del listview varios datos hacelo con un for como en este ejemplo

For i = 1 To ListView1.ListItems.Count
.AddNew
.Fields("codigo_cursoca") = ListView1.ListItems(i).Text
.Fields("rut") = MaskEdBox1
.Fields("nombre") = Text1
.Update
Next i

eso suerte chauu

Gracias Tenias Rason..
Ya pude mi Coneccion estaba mal.