Public Class clsData
 
    Dim AppPath As String = Application.StartupPath & "\"
    Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=" & AppPath & "ASKDB.mdb;Jet OLEDB:Database Password=Passwort;"
 
    Public Function goGetDataSet(ByVal sQry As String) As DataSet
        Dim oDataSet As New DataSet
        Dim oConnection As New OleDb.OleDbConnection(sConnectionString)
        Dim oCommand As New OleDb.OleDbCommand(sQry, oConnection)
        Dim oDataAdapter As OleDb.OleDbDataAdapter
 
        Try
            oConnection.Open()
            oDataAdapter = New OleDb.OleDbDataAdapter(sQry, oConnection)
            oDataAdapter.Fill(oDataSet)
 
            Return oDataSet
 
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
        Finally
            oConnection.Close()
        End Try
 
    End Function
 
    Public Function goGetDataTable(ByVal sQry As String) As DataTable
        Dim oDataTable As New DataTable
        Dim oConnection As New OleDb.OleDbConnection(sConnectionString)
        Dim oCommand As New OleDb.OleDbCommand(sQry, oConnection)
        Dim oDataAdapter As OleDb.OleDbDataAdapter
 
        Try
 
            oConnection.Open()
            oDataAdapter = New OleDb.OleDbDataAdapter(sQry, oConnection)
            oDataAdapter.Fill(oDataTable)
 
            Return oDataTable
 
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
        Finally
            oConnection.Close()
        End Try
 
    End Function
 
    Public Function goExecute(ByVal sQry As String) As Boolean
        Dim oConnection As New OleDb.OleDbConnection(sConnectionString)
        Dim oCommand As New OleDb.OleDbCommand(sQry, oConnection)
 
        Try
            oConnection.Open()
            oCommand.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
            Return False
        Finally
            oConnection.Close()
        End Try
    End Function
 
    Public Function oLookup(ByVal sField As String, ByVal sTable As String, _
      ByVal sWHEREClause As String) As String
        Dim sQry As String
        Dim sResult As String
        Dim oZeile As DataRow
        Dim oDataTable As New DataTable
        Dim oConnection As New OleDb.OleDbConnection(sConnectionString)
        Dim oCommand As New OleDb.OleDbCommand(sQry, oConnection)
        Dim oDataAdapter As OleDb.OleDbDataAdapter
 
        Try
            sQry = "SELECT " & sField & " FROM " & sTable & " " & sWHEREClause
            oConnection.Open()
            oDataAdapter = New OleDb.OleDbDataAdapter(sQry, oConnection)
            oDataAdapter.Fill(oDataTable)
 
            For Each oZeile In oDataTable.Rows
                Return oZeile.Item(sField).ToString
            Next
 
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
        Finally
            oConnection.Close()
        End Try
    End Function
 
End Class

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath & "Accessdatei.mdb;Jet OLEDBatabase Password=ask2db;"