help: VB-EXCEL

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.

Do not use fields named like keywords, they dont work.
Just rename those fields

thanks for the reply...
i have already done what you have suggested
but it is still not working...=(