初心者です　VBでMDBをメンテしたいとおもいます
HPのプログラムをコピーしたいとおおいますが上手くいきません

http://rucio.a.la9.jpDataSetの内容をデータベースに書き込む

MDBに接続する



以下の例では、MDBに接続して[社員]テーブルのはじめの[氏名]を表示する。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim St As  String
    Dim Cn As New System.Data.OleDb.OleDbConnection
    Dim SQL As System.Data.OleDb.OleDbCommand
    Dim UserID As String = "Admin"
    Dim Password As String = ""
    Dim MDBFile As String = "C:\Program Files\MicrosoftOffice\Office10\Samples\Northwind.mdb"

    St = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
   St &= "Data Source=""" & MDBFile & """;"
   St &= "User ID=" & UserID & ";"
   St &= "Jet OLEDB:Database Password=" & Password

    Cn.ConnectionString = St

    SQL = Cn.CreateCommand

    SQL.CommandText = "SELECT 氏名 FROM 社員"

    Cn.Open()

    MsgBox(SQL.ExecuteScalar)

    Cn.Close()
   SQL.Dispose()
   Cn.Dispose()

End  Sub
 

と
以下の例では、データベースからauthorsと言う名前のテーブルの内容をデータセットに読み込んで、最初のレコードの列cityの値を Tokyo に変更してからデータベースに書き込む。

authorsテーブルはSQL Server付属のサンプルであるpubsデータベースのテーブルだが、テーブル名や列名の部分は自由に変更できるのでこの例はどのような場合にも対応できる。


VB.NET2002対応 VB.NET2003対応 VB2005対応

Dim Cn As SqlClient.SqlConnection
 '<ここにCnのデータベースへの接続処理を追加してください。>

Dim sqlSelect As New SqlClient.SqlCommand("SELECT * FROM authors", Cn)
Dim Adapter As New SqlClient.SqlDataAdapter(sqlSelect)
Dim Builder As New SqlClient.SqlCommandBuilder(Adapter)
Dim ds As New DataSet

Adapter.Fill(ds)

ds.Tables(0).Rows(0)("city") = "Tokyo"

Adapter.Update(ds)
 
をくみあわせたいのですが、どうすればよいでしょうか？
ご指導お願いします

/main/dotnet/Samples/SmpleCnt.htm　　です