→→→テーブルにレコードを追加する

Dim oCom As OleDb.OleDbCommand
Dim oCn As OleDb.OleDbConnection = New OleDb.OleDbConnection
oCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                               & "D:\***.mdb; Persist Security Info=False"
oCn.Open()

Try
   oCom = New OleDb.OleDbCommand("INSERT INTO テスト VALUES( 5, 'パソコン')", oCn)
   oCom.ExecuteNonQuery()
Catch ex As Exception
   MessageBox.Show(ex.Message, "エラー通知")
End Try

oCn.Close()
MessageBox.Show("終了しました","結果通知")