→→→VB2005 ACCESSとの接続

Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\**.mdb")
Dim SQLcm As OleDbCommand = cn.CreateCommand
Dim Adapter As New OleDbAdapter(SQLcm)
Dim Table As New DataTable

SQLcm.CommandText = "SELECT * FROM テーブル"
Adapter.Fill(Table)

'データグリッドにデータを表示する
DataGridView1.DataSource = Table

Table.Dispose()
Adapter.Dispose()
SQLcm.Dispose()
cn.Dispose()

--------------------------------------------------------------
'Tableの内容をテキストにして書き出す
Dim Writer As New IO.StreamWriter("D:\Data.csv")
Dim LineText As String

For Each Row As DataRow In Table.Rows
        LineText =  ""
        For i As Integer = 0 To Table.Columns.Count - 1
           If Len(LineText) > 0 Then
               LineText &= ","
           End If
           LineText &= Row(i)
        Next
        Writer.WriteLine(LineText)
Next
Writer.Close()
Writer.Dispose()

---------------------------
'S-JIS
Dim Writer As New IO.StreanWriter
                    ("C:\*****.csv", False, System.Text.EncodingGetEncoding("Shift-Jis"))

-------------------------------------------------------

Dim cCom As OleDbCommandBuilder

Dim dSet As DataSet = New DataSet()

Dim dAdp As OleDbDataAdapter

Dim ocn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;

                                 DataSource=D:\***.mdb;Persist Security Info=False")

dAdp = New OleDbDataAdapter("SELECT * FROM テーブル", ocn)

dAdp.Fill( dSet , "t_テーブル" )

cCom = New OleDbCommandBuilder(dAdp)

Dim i As Integer

For i = 0 To 999　(----> dSet.Tables("t_テーブル").Rows.Count - 1)

   dSet.Tables("t_テーブル").Rows(i)("列名")  = "代入物"

Next

dAdp.Update( dSet, "t_テーブル")

dAdp.Update( dSet , "t" )