VBAでAccessデータベースに大量のダミーデータを追加する方法

Sub AddMultipleRecords()
    Dim db As DAO.Database
    Dim i As Long

    ' 現在のデータベースを設定
    Set db = CurrentDb

    ' 複数のレコードを追加
    For i = 1 To 100
        Dim sql As String
        sql = "INSERT INTO 生徒マスタ (生徒番号, 生徒名) VALUES (" & (1000 + i) & ", '生徒" & i & "');"
        
        ' SQL文の実行
        Debug.Print sql ' SQL文をイミディエイトウィンドウで確認
        On Error GoTo ErrorHandler
        db.Execute sql, dbFailOnError
    Next i

    ' 後処理
    Set db = Nothing
    
    MsgBox "レコードの追加が完了しました。"
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
    Set db = Nothing
End Sub

Sub AddMultipleRecordsToAccessADO()
    Dim conn As Object
    Dim sql As String
    Dim i As Long
    Dim accessDbPath As String

    ' Accessデータベースのパスを指定
    accessDbPath = "C:\path\to\your\database.accdb" ' データベースのパスを指定してください

    ' ADO接続の初期化
    Set conn = CreateObject("ADODB.Connection")
    
    ' 接続文字列の設定
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & accessDbPath & ";"
    
    ' 接続を開く
    On Error GoTo ErrorHandler
    conn.Open

    ' 複数のレコードを追加
    For i = 1 To 100 ' 追加するレコード数を指定
        sql = "INSERT INTO 生徒マスタ (生徒番号, 生徒名) VALUES (" & (1000 + i) & ", '生徒" & i & "');"
        
        ' SQL文の実行
        Debug.Print sql ' SQL文をイミディエイトウィンドウで確認
        conn.Execute sql
    Next i

    ' 後処理
    conn.Close
    Set conn = Nothing
    
    MsgBox "レコードの追加が完了しました。"
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
    If Not conn Is Nothing Then conn.Close
    Set conn = Nothing
End Sub