Private Sub Form_Load()
    Dim vabyMsg As Byte
    Dim vastDatei As String
    Dim vastSql As String
 
        vastDatei = pfaddatenbank '(wird bei Programmstart festgelegt)
        vastSql = "SELECT [PM-Nr] FROM Kubische_Gleichungen WHERE" & _
          "[Kraftrichtung] = '" & frmBereichsAngaben.comboZugDruck(i).Text & "'" & _
          ""
 
            Set db = OpenDatabase(vastDatei)
            Set tb = db.OpenRecordset(vastSql)
            VAINdummy = 0
            z = 1
                Do While tb.EOF = False
                    comboKMG1.AddItem tb(0), VAINdummy
                    comboKMG2.AddItem tb(0), VAINdummy
                    comboKMG3.AddItem tb(0), VAINdummy
                    comboKMG4.AddItem tb(0), VAINdummy
                    VAINdummy = VAINdummy + 1
                    tb.MoveNext
                    comboKMG1.ListIndex = 0
                    comboKMG2.ListIndex = 0
                    comboKMG3.ListIndex = 0
                    comboKMG4.ListIndex = 0
                    z = z + 1
                    If z > 80 Then GoTo fehlerdb
                Loop