Dim objVerbindung As OleDbConnection
        objVerbindung = New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= versionen.mdb;")
        Try
            objVerbindung.Open()
            oledbmeldung.text = "Verbindung erfolgreich hergestellt"
            objVerbindung.Close()
        Catch ex As OleDbException
            oledbmeldung.text = "Verbindungsaufbau fehlgeschlagen"
        End Try