DB接続 UPDATE （VS2005/VS2008）

'コネクションストリングを用意
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim cnctStr As String
Dim MDBFile As String = "C:\test.mdb"
cnctStr = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
cnctStr &= "Data Source=""" & MDBFile & """;"
cnctStr &= "User ID=" & UserID & ";"
cnctStr &= "Jet OLEDB:Database Password=" & Password

'データベースとの接続関係を設定
Dim db As New System.Data.OleDb.OleDbConnection
db.ConnectionString = cnctStr

'UPDATEコマンドを作成
Dim cmnd As New System.Data.OleDb.OleDbCommand
cmnd.Connection = db
cmnd.CommandText = "UPDATE PurchaseHistory SET intUserID=3 WHERE intUserID=2"

'データベースをオープン
db.Open()

'コマンドを実行
cmnd.ExecuteNonQuery()

'データベースをクローズ
db.Close()