dbpfad1 = Application.StartupPath & "\db1848.mdb"
        Dim myOleDbConnection2 As New OleDb.OleDbConnection
        myOleDbConnection2.ConnectionString = _
          "PROVIDER=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data" & _
          "Source=" & dbpfad1
        Try
            myOleDbConnection2.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, _
                "Beim Öffnen der Datenbank ist ein Fehler aufgetreten.")
        End Try
        Dim myOleDbSelectCommand2 As New OleDb.OleDbCommand
        myOleDbSelectCommand2.Connection = myOleDbConnection2
        myOleDbSelectCommand2.CommandText = "update mitglieder set alter = 99" & _
          "where id = 9"
        myOleDbSelectCommand2.ExecuteNonQuery()
        myOleDbConnection2.close()