Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms
 
Public Class class_functions
    Inherits Form1
    Public newconnection As New DataView
 
#Region "connection"
 
    Public Sub newcn(ByVal _sqlanweisung As String)
        Dim datasource As String = "I:\Datenbank\DBWerte.mdb"
 
        Dim Connection As OleDb.OleDbConnection = _
                   New OleDb.OleDbConnection _
                   ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
                   "Data Source=" & datasource & "")
        Dim DataAdapter As OleDb.OleDbDataAdapter
        Dim DataSet As DataSet = New DataSet
        Dim DataView As DataView = Nothing
 
        Connection.Open()
 
        DataAdapter = New OleDb.OleDbDataAdapter(_sqlanweisung, Connection)
 
        DataAdapter.Fill(DataSet, "FillDV")
        DataView = New DataView(DataSet.Tables("FillDV"))
        newconnection = DataView
    End Sub
#End Region