INSERT

実行

データベース.Execute CommandText:="INSERT文", Options:=adExecuteNoRecords

　オプション指定しないと　閉じたレコードセット　が返される

データベース.Execute CommandText:="INSERT文"

Dim コマンド As New ADODB.Command

With コマンド
    .ActiveConnection = データベース
    .CommandText = "INSERT文"
    .Execute
End With

Set コマンド = Nothing