i am having problems with getting the values of certain fields in excel.
the following fields return Null values although it is not:

CDAN
CREDITOR
CURRENCY


here's my complete code, please refer to procedure Save2Access for my case:


Private Sub cmdSave_Click()

Dim cmd As New Command
Dim SQUERY As String

If rsIOD.State = 1 Then
rsIOD.Close
End If


SQUERY = ""
SQUERY = "Select * from FB"

Set cmd.ActiveConnection = conIOD
cmd.CommandText = SQUERY
rsIOD.CursorLocation = adUseClient ' cursor can be set at client or at server
rsIOD.Open cmd, , adOpenDynamic, adLockBatchOptimistic

frmIOD.StatusBar1.Panels(1).Text = "Saving validated files. Please wait..."
Call Save2Access
frmIOD.cmdUpload.Enabled = True
IODExcel.ActiveWorkbook.Close False
Set IODExcel = Nothing

End Sub



Public Sub Save2Access()

frmIOD.DatExcel.RecordSource = "mFB$"
frmIOD.DatExcel.Refresh
frmIOD.DatExcel.Recordset.MoveFirst


Do While frmIOD.DatExcel.Recordset.EOF = False And _
IsNull(frmIOD.DatExcel.Recordset.Fields("repdte")) = False
rsIOD.AddNew

rsIOD.Fields("REPDTE") = frmIOD.DatExcel.Recordset.Fields("repdte")
rsIOD.Fields("DEBTNO") = frmIOD.DatExcel.Recordset.Fields("debtno")
rsIOD.Fields("CDAN") = frmIOD.DatExcel.Recordset.Fields("cdan")
rsIOD.Fields("CRED") = frmIOD.DatExcel.Recordset.Fields("creditor")
rsIOD.Fields("GRANT") = frmIOD.DatExcel.Recordset.Fields("guaran")
rsIOD.Fields("LOANDTE") = frmIOD.DatExcel.Recordset.Fields("loandte")
rsIOD.Fields("MATDTE") = frmIOD.DatExcel.Recordset.Fields("matamt")
rsIOD.Fields("COMIT") = frmIOD.DatExcel.Recordset.Fields("commit")
rsIOD.Fields("UCOMIT") = frmIOD.DatExcel.Recordset.Fields("ucomit")
rsIOD.Fields("OUTAMT") = frmIOD.DatExcel.Recordset.Fields("outamt")
rsIOD.Fields("TRDATE") = frmIOD.DatExcel.Recordset.Fields("trdate")
rsIOD.Fields("CURR") = frmIOD.DatExcel.Recordset.Fields("currency")
rsIOD.Fields("UTILS") = frmIOD.DatExcel.Recordset.Fields("util")
rsIOD.Fields("DUEDTE") = frmIOD.DatExcel.Recordset.Fields("duedte")
rsIOD.Fields("PAIDTO") = frmIOD.DatExcel.Recordset.Fields("paidto")
rsIOD.Fields("PRNAMT") = frmIOD.DatExcel.Recordset.Fields("prnamt")
rsIOD.Fields("INTAMT") = frmIOD.DatExcel.Recordset.Fields("intamt")
rsIOD.Fields("RESAMT") = frmIOD.DatExcel.Recordset.Fields("resamt")
rsIOD.Fields("OUTBAL") = frmIOD.DatExcel.Recordset.Fields("outbal")

rsIOD.Update
frmIOD.DatExcel.Recordset.MoveNext
Loop

frmIOD.StatusBar1.Panels(1).Text = "Records successfully saved!"

End Sub


please find the attached excel file for your reference.