お世話になります。

レコードセットでEXCELの値を書き込みたいのですが
今ひとつレコードセットに値を代入出来ません

Dim db                As DAO.Database
Dim RS                As DAO.Recordset

    Set db = OpenDatabase(strPath & strSheetName & ".xls", True, False, _
                 "Excel8.0;HDR=no;IMEX=1;")
    Set RS = db.OpenRecordset(strSheetName & "$", dbOpenDynaset)

    RS.MoveFirst
    RS.Edit
    RS.Fields(0) = "sss"
    RS.Fields(1) = "aaa"
    RS.Update

    RS.Close
    Set RS = Nothing
    db.Close
    Set db = Nothing

上記で、RS.Fields(1)に"aaa" を代入しようとしたら
NULLで入りません

初心者ですみません
ご存知の方ご教授下さい
宜しくお願い致します。

こんにちは。
この部分を
>  "Excel8.0;HDR=no;IMEX=1;")

"Excel 8.0;HDR=NO;IMEX=2;")　としたらどうでしょう。
      ^のスペースが無い、それとIMEX=1はImport modeです。

ご回答有難う御座いました。

"Excel 8.0;HDR=NO;IMEX=2;"

でいけました
有難う御座いました。m(_  _)m