Public Shared Sub Main()
        Dim openFileDB As New OpenFileDialog
        openFileDB.Title = "Bitte SB-Datenbank auswählen!"
        openFileDB.InitialDirectory = "c:\temp\Datenbank\"
        openFileDB.Filter = "Access Database Files Only (*.mdb)|*.mdb"
        If openFileDB.ShowDialog = DialogResult.Cancel Then
            MessageBox.Show("Sie haben keine gültige SB-Datenbank gewählt." & _
              "Programm wird beendet.", "Hinweis", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
            Exit Sub
        Else
            Dim oStart As New CStart
            oStart.Datenbankort = openFileDB.FileName
            Dim frmHauptFenster As New Form1
            System.Windows.Forms.Application.Run(New Form1)
        End If
    End Sub