Dim dbs As Database
Dim rst As Recordset
Dim strFileName As String
Dim intFilenum As Integer
Dim lngRecLen As Long
Dim strData As String
Const cstrDir = "C:\テスト\"

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblテキストファイルデータ")

'C:\テストフォルダ内の最初の.htmlファイルを読み込む
strFileName = Dir(cstrDir & "*.html")

'フォルダ内のすべての.htmlファイルを読み込むループ
Do While strFileName <> ""
  '入力元ファイルをBinaryモードで開く
  intFilenum = FreeFile()
  Open cstrDir & strFileName For Binary As #intFilenum
  'ファイルのサイズを取得
  lngRecLen = LOF(intFilenum)
  'ファイルサイズに合わせて変数をスペースで埋める
  strData = String$(lngRecLen, " ")
  'ファイルを丸ごと読み込む
  Get #intFilenum, , strData
  'NULL文字を除去
  strData = Replace(strData, vbNullChar, "")

  '読み込んだデータを新規レコードにフィールドに格納
  With rst
    .AddNew
      !ファイル名 = strFileName
      !テキストデータ = strData
    .Update
  End With

  '入力元ファイルを閉じる
  Close #intFilenum

  '次のファイルへ進む
  strFileName = Dir()

Loop

rst.Close