Private con As New OleDb.OleDbConnection
    Private da As New OleDb.OleDbDataAdapter
    Dim ds As New DataSet
 
    Public Function ÖffneDatenbank(ByVal Datenbank As String, Optional ByVal _
      Passwort As String = "") As String 
        Try
            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=" & Datenbank & ";Jet OLEDBatabase Password=" & Passwort _
              & ";" 
            con.Open()
            Return Nothing
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function
 
    Public Function SchliesseDatenbank() As String
        Try
            con.Close()
            Return Nothing
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function
 
    Public Function SucheDatensätze(ByVal Tabellename As String, Optional ByVal _
      Bedingungen As String = "") As DataSet
        Try
            da = New OleDb.OleDbDataAdapter("SELECT * FROM " & Tabellename & "" & _
              "" & Bedingungen, con)
            da.Fill(ds, Tabellename)
            Return ds
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
 
    Public Function AktualisiereTabelle(ByVal Tabellename As String, ByRef ds _
      As DataSet, ByVal da As OleDbDataAdapter) As String
        Dim builder As OleDb.OleDbCommandBuilder = New _
        OleDb.OleDbCommandBuilder(da)
        da.Update(ds, Tabellename)
        Return Nothing
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist