お世話になっております。
ＣＳＶデータ全件をＭＤＢのテーブルに格納する処理があるのですが、
データが、３万件あると、３万回のインサート処理が走ってしまう
コーディングになっています。
処理の度に、ＭＤＢのテーブルのデータは全て削除し、
ＣＳＶデータを１件１件追加する処理になっています。
もっと効率のよい方法はないでしょうか？
ご教授お願い致します。

  'ODBC Driver用宣言
  Dim lConnection As OdbcConnection
  Dim lDataAdapter As New OdbcDataAdapter
  Dim lSQLCommand As New OdbcCommand
  Dim lTransaction As OdbcTransaction

  lConnectStr = "DSN=" & "MDB" & ";UID=" & "" & ";PWD=" & ""
  lConnection = New OdbcConnection(lConnectStr)

  lConnection.Open()

  'テーブルデータを全件削除
  〜 省略 〜

  lSQLCommand.Connection = lConnection        '作成された接続をセット
  lSQLCommand.CommandType = CommandType.Text  'CommandTextをテキストとして解釈
  lDataAdapter.SelectCommand = lSQLCommand

  i = 0
  Do
      i = i + 1

      StrSQL = ""
      StrSQL = StrSQL & " INSERT INTO テーブル1 " & vbNewLine
      StrSQL = StrSQL & " " & vbNewLine
      StrSQL = StrSQL & " (" & vbNewLine
      StrSQL = StrSQL & " キー," & vbNewLine
      〜 省略 〜

      lSQLCommand.CommandText = StrSQL
      lSQLCommand.ExecuteNonQuery()

  Loop

> もっと効率のよい方法はないでしょうか？

INSERT クエリをデータごとに作成するのではなく、パラメタクエリとして実行しましょう。
SQLの再解析にかかる時間を省略できますし、SQL Injection 対策にもなります。

また、CSV の形式によっては、Jet の異種DB間クエリ(IN句など)を用いた
　INSER INTO [mdbTable1] SELECT * FROM [Text;Database=C:\foo].[foo.csv]
が有効な場合もあります。(この場合は、Odbc* ではなく OleDb* を使ってください)

もし、さらなる高速化を望むのであれば、DAO のテーブルタイプRecordset を使うのも
有効な方法かと思います。
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200611/06110042.txt

DAO のテーブルタイプRecordset で処理を行いたいと思います。
ありがとうございました。