Option Explicit
 
Private Sub Form_load()
    'Splashscreen befüllen
    lbl_Titel.Caption = "XYZ"
    lbl_Untertitel.Caption = App.Major & "." & App.Minor
    lbl_Entwickler.Caption = "(c) " & App.LegalCopyright & " (" & _
      App.CompanyName & ")"
 
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Call Nachstarten
End Sub
 
Private Sub Nachstarten()
    'Daten aus Access einlesen
    Call Daten_lesen(0, 0)
 
    'Hauptform starten
    Load form_Hauptform
    form_Hauptform.Show
    Unload form_Splashscreen
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!