dbFile = "C:\VB_Projekte\Bundesliga_Tipspiel\BuLi_Tippspiel.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
Set Tipp = Db.OpenRecordset("Tipps")
 
' Indizierung der Tabelle zur schnelleren Suche
 
Index.Name = "Spieler_Begegnung"
Index.Primary = True
Index.Unique = True
Index.Fields = "Spieler;Heimmannschaft;Gastmannschaft"
 
Db.TableDefs("Tipps").Indexes.Append Index
Set Index = Nothing
 
' Datensatz suchen (anhand eingegebenem Spieler + Begegnung)
 
Tipp.Seek "=", "lstTippspieler", "lstHeimmannschaft", "lstGegnermannschaft"
 
' Tipp des Spielers einpflegen 
Tipp.Edit
Tipp("Tipp_ToreHeim") = lstHeimtore.List(lstHeimtore.ListIndex)
Tipp("Tipp_ToreGegner") = lstAuswaertstore.List(lstAuswaertstore.ListIndex)
' Daten werden dauerhaft gespeichert
Tipp.Update
 
' DB-Verbindung schließen
    Tipp.Close
    Db.Close
    Set Tabelle = Nothing
    Set Db = Nothing