Problema de conversion al insertar campo en BD

[kal-08]

Hola, tengo un problema de conversion de datos varchar a tipo de datos int que realmente no entiendo porque todos los datos que introduzco en la BD son varchar y los campos de las tablas tambien lo son. Solo me pasa al introducirlo en un campo de la BD. Os pongo el codigo:

Dim rst As ADODB.Recordset
Dim rstCab As ADODB.Recordset

Set rst = New ADODB.Recordset
Set rstCab = New ADODB.Recordset

Dim strselect As String


strselect = "SELECT vcg.FECHA, vcg.HORA, vcg.PROVEEDOR, vcg.OTRO, Sum(vcg.NETO) as Total, Sum(vcg.BRUTO) as TotBruto, Sum(vcg.IVANETO) as TotIva " & _
"FROM Vista_Compras_General as vcg " & _
"WHERE vcg.FECHA = '" & strfecha & "' " & _
"GROUP BY vcg.OTRO, vcg.FECHA, vcg.HORA, vcg.PROVEEDOR"


rst.Open strselect, cn, adOpenDynamic, adLockOptimistic

rstCab.Open "SELECT * FROM AlbCompraCab WHERE 0=1", cn, adOpenDynamic, adLockOptimistic

txtAlbCompCab = 0

If Not rst.EOF Then

Do While Not rst.EOF

rstCab.AddNew
rstCab("NUMSERIE") = "A"
rstCab("NUMALBARAN") = rst("OTRO") --> Aqui me da el problema.
rstCab("N") = "B"
rstCab("FACTURADO") = "T"
rstCab("NUMSERIEFAC") = "B"
rstCab("NUMFAC") = rst("OTRO")
rstCab("NFAC") = "B"
rstCab("ESUNDEPOSITO") = "F"
rstCab("ESDEVOLUCION") = "F"
rstCab("CODPROVEEDOR") = rst("PROVEEDOR")
rstCab("FECHAALBARAN") = Format(rst("FECHA"), "00/00/0000")
rstCab("PORTESPAG") = "F"
rstCab("TOTALBRUTO") = Round(rst("TotBruto"), 2)
rstCab("TOTALIMPUESTOS") = Round(rst("TotIva"), 2)
rstCab("TOTALNETO") = Round(rst("Total"), 2)
rstCab("CODMONEDA") = 1
rstCab("FACTORMONEDA") = 1
rstCab("FECHAENTRADA") = Format(rst("FECHA"), "00/00/0000")
rstCab("TIPODOC") = 4
rstCab("TIPODOCFAC") = 6
rstCab("HORA") = Format(rst("HORA"), "00:00:00")

rstCab.Update

rst.MoveNext

txtAlbCompCab = txtAlbCompCab + 1

DoEvents

txtAlbCompCab.Refresh
Loop

End If
rst.Close

Ya he probado de todo y no me funciona. He probado a hacer Conversiones Cstr...
Si me podeis ayudar, Gracias.

Saludos.