→→→接続基本形

Private Sub Button1_Click(.....
  Dim cCom As OleDb.OleDbCommandBuilder
  Dim dSet As DataSet = New DataSet()
  Dim dAdp As OleDb.OleDbDataAdapter
  Dim ocn As OleDb.OleDbConnection = New OleDb.OleDbConnection()


  ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\**.mdb;
                                    Persist Security Info = False"
  dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM D" , ocn )
  dAdp.Fill ( dSet , "t" )
  Dim i As Integer
  For i = 0 To 2000
      dSet.Tables("t").Rows(i)("氏名") = dSet.Tables("t").Rows(i)("氏名") & "　様"
  Next
  cCom = New OleDb.OleDbCommandBuilder(dAdp)
  dAdp.Update( dSet , "t" )
End Sub