con_DBconnection = eQM_getDBConnection(ds_DataSetObjekt, str_Backendname)

    Public Shared Function eQM_getDBConnection(ByVal DataSetObjekt As DataSet, _
      ByVal Backendname As String) As OleDbConnection
        Try
            Dim dbc As New OleDbConnection()
            Dim strConn As String
            'Verbindungsstring
            strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User" & _
              "ID=Admin;Data Source=" & _
             DbPath & Backendname & ".mdb" & _
             ";Mode=Share Deny None;Exten" & _
             "ded Properties="""";Jet OLEDB:System database="""";Jet" & _
             "OLEDB:Registry Path="""";Jet OL" & _
             "EDB /\ Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB" & _
             "/\ Database Locking Mode" & _
             "=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk" & _
             "Transactions=1;Jet " & _
             "OLEDB:New Database Password="""";Jet OLEDB:Create System" & _
             "Database=False;Jet OLEDB:" & _
             "Encrypt Database=False;Jet OLEDB /\ Don't Copy Locale on" & _
             "Compact=False;Jet OLEDB:Co" & _
             "mpact Without Replica Repair=False;Jet OLEDB:SFP=False"
            Try
                dbc.ConnectionString = strConn
                dbc.Open()
                eQM_getDBConnection = dbc
                Return eQM_getDBConnection
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                'Die Connection bleibt offen und wird in der Funktion, die 
                ' diese Funktion aufruft geschlossen.
            End Try
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)