Private Sub Form_Load()
    Dim db As Database
    Dim rs As Recordset
    Dim z(1000) As String
    Dim i As Integer
    For i = 1 To 1000
        z(i) = i
    Next i
    Set db = Workspaces(0).OpenDatabase("C:\dbtest.mdb")
    Set rs = db.OpenRecordset("Tabelle1")
    rs.MoveFirst
    Do Until rs.EOF
        z(CInt(rs("Zahl"))) = 0
        rs.MoveNext
    Loop
    For i = 1 To 1000
        If z(i) > 0 Then
            Combo1.AddItem z(i)
        End If
    Next i
End Sub