Public Sub FillDataSet(ByVal dataSet As Project1.DataSet1)
        'Einschränkungsüberprüfung ausschalten, bevor das DataSet gefüllt ist.
        'Hiermit können die Adapter das DataSet füllen,
        'ohne dass Abhängigkeitsprobleme zwischen den Tabellen entstehen.
        dataSet.EnforceConstraints = False
        Try
            'Verbindung öffnen.
            Me.OleDbConnection1.Open()
            'Versuch, das DataSet über OleDbDataAdapter1 zu füllen.
            Me.OleDbDataAdapter1.Fill(dataSet)
        Catch fillException As System.Exception
            'Fehlerbehandlungscode hier hinzufügen.
            Throw fillException
        Finally
            'Einschränkungsüberprüfung wieder einschalten.
            dataSet.EnforceConstraints = True
            'Verbindung schließen, egal ob die Ausnahme ausgelöst wurde oder 
            ' nicht.
            Me.OleDbConnection1.Close()
        End Try
 
    End Sub

Call FillDataSet()

Me.FillDataSet()