German Array dynamisch

Sub SpinnerPromoart
   
    Dim dbCursor As Cursor
   
    SQL1.Initialize(File.DirDefaultExternal, "baustein.db3", True)    'ignore

    dbCursor = SQL1.ExecQuery("SELECT * FROM drp_promotionarten")

    For i = 0 To dbCursor.RowCount - 1        'dbCursor.RowCount = 5

        dbCursor.Position = i

        mPromoartString(i) = dbCursor.GetString("NAME")
        'Log(mPromoartString(i))   
        ms1.SpinnerData = Array As String(mPromoartString(0), mPromoartString(1), mPromoartString(2), mPromoartString(3), mPromoartString(4))

    Next
    dbCursor.Close
   
End Sub

Sub SpinnerPromoart
   
    Dim dbCursor As Cursor

    SQL1.Initialize(File.DirDefaultExternal, "baustein.db3", True)    'ignore

    dbCursor = SQL1.ExecQuery("SELECT * FROM drp_promotionarten")

    For i = 0 To dbCursor.RowCount - 1        'dbCursor.RowCount = 5
        Dim mPromoartString(dbCursor.RowCount) As String

        dbCursor.Position = i

        mPromoartString(i) = dbCursor.GetString("NAME")
        'Log(mPromoartString(i))   
       
        'Wenn die Tbl 5 Datensätze hat, soll es so aussehen
        ms1.SpinnerData = Array As String(mPromoartString(0), mPromoartString(1), mPromoartString(2), mPromoartString(3), mPromoartString(4))
       
        'Wenn die Tbl 2 Datensäzte hat, soll es so aussehen
        ms1.SpinnerData = Array As String(mPromoartString(0), mPromoartString(1))
       
       
    Next
    dbCursor.Close
   
End Sub

Sub SpinnerPromoart
 
    Dim dbCursor As Cursor

    SQL1.Initialize(File.DirDefaultExternal, "baustein.db3", True)    'ignore

    dbCursor = SQL1.ExecQuery("SELECT * FROM drp_promotionarten")
    Dim mPromoartString(dbCursor.RowCount) As String
    For i = 0 To dbCursor.RowCount - 1        'dbCursor.RowCount = 5
        dbCursor.Position = i
        mPromoartString(i) = dbCursor.GetString("NAME")
    Next
    ms1.SpinnerData = mPromoartString
    dbCursor.Close
End Sub