Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.Common
Imports Microsoft.VisualBasic
 
Public Module db
 
    Public Function OpenDatabase(ByVal sql_befehl As String, ByVal Tabelle As _
      String) As DataSet
 
        Dim t As String = ""
        Dim connStr As String
        connStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
        connStr += _
         "Data Source=c:\Diplomarbeit\DB\nafa_db.mdb;"
        ' Verbindung herstellen
        Dim conn As New OleDbConnection(connStr)
 
        Try
            conn.Open()
            ' Kommando-Objekt vorbereiten
            Dim cmd As New OleDbCommand()
            cmd.Connection = conn
            ' Adapter-Objekt vorbereiten
            Dim myAdapter As New OleDbDataAdapter()
            myAdapter.SelectCommand = cmd
 
            Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter)
 
            ' DataSet-Objekt vorbereiten
            Dim myDS As New DataSet()
 
            ' Tabelle einlesen
            cmd.CommandText = sql_befehl
            myAdapter.Fill(myDS, Tabelle)
 
            ' bringt bisher noch nicht wirklich was dieses update
            myAdapter.Update(myDS, Tabelle)
 
            Return myDS
 
        Catch exc As InvalidOperationException
            ' Die Verbindung ist bereits geöffnet.
            t += exc.Message
            Dim leer As New DataSet() ' falls DB-Verbindung scheitert wird 
            ' leeres DataSet zurückgegeben
            Return leer
 
        Catch exc As OleDbException
            t = "Fehler auf Verbindungsebene: "
            t += exc.ErrorCode & "<br><br>"
            t += exc.Message
            Dim leer As New DataSet() ' falls DB-Verbindung scheitert wird 
            ' leeres DataSet zurückgegeben
            Return leer
 
        End Try
 
        conn.Close()
 
    End Function
 
 
End Module

 
...
 connStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
        connStr += _
        "Data Source=FH-LFOV0VETECJJ;Initial Catalog=nafa;Integrated" & _
        "Security=True;"
....