'
    Private Function Access_Connection(ByVal AccessDBFile As String, Optional _
      ByVal Password As String = "") As OleDb.OleDbConnection
        '
        Return New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & _
                                         "Data source='" & AccessDBFile & "'; " _
                                         & _
                                         "Jet OLEDB:database password='" & _
                                         Password & "'; " & _
                                         "User ID=Admin;")
        '
    End Function
    '
    Public Overloads Function Access_Get(ByVal AccessDBFile As String, ByVal _
      Table As String, Optional ByVal SelectWhatColumn As String = "*", _
      Optional ByVal OrderColumnBy As String = "") As DataSet
        '
        Dim Connection As OleDb.OleDbConnection = Access_Connection( _
          AccessDBFile)
        '
        Try
            '
            Dim DBDataSet As New DataSet
            Dim SQL As String
            '
            '"select firstname,lastname,id from pupils order by lastname"
            If OrderColumnBy = "" Then
                SQL = "select " + SelectWhatColumn + " from " + Table
            Else
                SQL = "select " + SelectWhatColumn + " from " + Table + " order" & _
                  "by " + OrderColumnBy
            End If
            '
            Dim DBDataAdapter As OleDb.OleDbDataAdapter = New _
              OleDb.OleDbDataAdapter(SQL, Connection)
            '
            Try
                '
                DBDataAdapter.Fill(DBDataSet, Table)
                '
            Finally
                '
                DBDataAdapter.Dispose()
                '
            End Try
            '
            Return DBDataSet
            '
        Finally
            '
            Connection.Close()
            Connection.Dispose()
            '
        End Try
        '
    End Function
    '
    Public Sub Access_Update(ByVal AccessDBFile As String, ByVal DBDataSet As _
      DataSet, ByVal Table As String)
        '
        Dim Connection As OleDb.OleDbConnection = Access_Connection( _
          AccessDBFile)
        '
        Try
            '
            Dim SQL As String = "Select * from " + Table
            Dim DBDataAdapter As OleDb.OleDbDataAdapter = New _
              OleDb.OleDbDataAdapter(SQL, Connection)
            '
            Try
                '
                If DBDataSet.HasChanges Then
                    '
                    DBDataAdapter.Update(DBDataSet, Table)
                    DBDataSet.AcceptChanges()
                    '
                End If
                '
            Finally
                '
                DBDataAdapter.Dispose()
                '
            End Try
            '
        Finally
            '
            Connection.Close()
            Connection.Dispose()
            '
        End Try
        '
    End Sub