Imports System.Data.OleDb
Imports System.IO
 
Public Class TestXXX
    Dim myOleDbDataAdapter As OleDbDataAdapter
    Dim myDataTable As DataTable = New DataTable()
    Dim myCommand As OleDbCommandBuilder
    Dim BS As New BindingSource
 
    Private Sub Test1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
               Call ConnectDB()
            Try
                myDataTable.Clear()
                myOleDbDataAdapter = New OleDbDataAdapter("SELECT * from" & _
                  "Table1;"));", VP_SYSTEMDB_Connection)
                myOleDbDataAdapter.Fill(myDataTable)
                BS.DataSource = myDataTable
 
                Me.T_Name.DataBindings.Add((New Binding("Text", myDataTable, _
                  "Name")))
                Me.T_Version.DataBindings.Add((New Binding("Text", myDataTable, _
                "Version")))
                Me.T_Description.DataBindings.Add((New Binding("Text", _
                myDataTable, "Description")))
            Catch
                Console.WriteLine("Error Opening {0}", _
                  VP_SYSTEMDB_Connection.DataSource)
            End Try
            myCommand = New OleDbCommandBuilder(myOleDbDataAdapter)
            End Sub
 
' Save Button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
Me.T_Version.Text = "1.0"   
        BS.EndEdit()
        myOleDbDataAdapter.UpdateCommand = myCommand.GetUpdateCommand()
        myOleDbDataAdapter.Update(myDataTable)
 
    End Sub
End Class