Error!

[kawakami]

Buenas noches... bueno mi problema es el siguiente...
Cuendo corro este procedimiento

Private Sub CMDAg_Click()
If (CMBprove.Text <> "") And (LSTmatC.ListCount <> -1) And (TXTsolC.Text <> "") And (TXTnumfC.Text <> "") Then

cuit = Mid(CMBprove.Text, Len(CMBprove.Text) - 12, 14)
With Prove
.MoveFirst
While (Not .EOF)
If .Fields("CUIT") = cuit Then
cod = .Fields("Cod_Prov")
Else
End If
.MoveNext
Wend

End With
With Orden
.AddNew
.Fields("Nro_Orden") = TXTnumC.Text
.Fields("Cod_Prov") = cod
.Fields("Nro_Fact") = TXTnumfC.Text
.Fields("Solicitado") = TXTsolC.Text
.Update
End With

With Items
For i = 0 To LSTmatC.ListCount
Mat.MoveFirst
While (Not Mat.EOF)
If Mat.Fields("Descripcion") = LSTmatC.List(i) Then
cod = Mat.Fields("Cod_Mat")
End If
Mat.MoveNext
Wend
.AddNew
.Fields("Nro_Orden") = TXTnumC.Text
.Fields("Cod_Mat") = cod
.Fields("cant") = LSTcantC.List(i)
.Fields("Prec_Unit") = LSTPUC.List(i)
.Fields("Unidad") = LSTunC.List(i)
.Update
Next i
End With
MsgBox "Se ha cargado la orden"
Else
MsgBox "Faltan rellenar campos"
End If
End Sub


se detene en la linea que esta en negrita y me dice "La operación en varios pasos generó errores. Compruebe los valores de estado"

no se que puede ser :S ayuda!!!
gracias de antemano