Private Sub Form_Load()
 
Dim db As Database
Dim dbFile As String
Dim Tabelle As Recordset
 
dbFile = App.Path + "\position.mdb"
Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = db.OpenRecordset("t_projekt")
 
Do While Not Tabelle.EOF
    cmbProjekt.AddItem (Tabelle("ProjektName"))
    Tabelle.MoveNext
Loop
 
TopMost (Me.hWnd)
Me.Top = Screen.Height / 2 - Me.Height / 2
Me.Left = Screen.Width / 2 - Me.Width / 2
End Sub