Public Function ReadSelect(varArray As Variant) As String
Dim i As Integer
Dim strSelect As String
Dim strTable As String
 
    If IsArray(varArray) = False Then
        ReadSelect = "false"
    End If
 
    '* Select-String zusammen setzen
    For i = LBound(varArray) To UBound(varArray)
         strSelect = strSelect + varArray(i)(1) + ","
    Next i
 
    '* Letztes Zeichen entfernen
    If Right(strSelect, 1) = "," Then strSelect = Left(strSelect, Len( _
      strSelect) - 1)
 
    '* Tabelle hinzufügen
    strSelect = "Select " + strSelect + " from " + varArray(0)(0)
 
    '* Ergebnis zurück liefern
    ReadSelect = strSelect
 
End Function

Public Sub AddColumn(Grid As Object, strCaption As String, intBreite As _
  Integer, bolVisible As Boolean)
 
    With Grid
        '* Column im Grid setzen
        .ColumnAdd , strCaption, intBreite, , bolVisible
    End With
 
End Sub

Public Function GridLagerbewegungBestandColumns() As Variant
Dim varColumn(8) As Variant
 
    '* Tabelle / Datenfeld / Caption /Breite / / Sichtbar / Ausrichtung
    varColumn(0) = Array("qry_LagerbewegungBestand", "Lagerdetail_ID", _
      "LagerdetailID", 0, 0, False, 1)
    varColumn(1) = Array("qry_LagerbewegungBestand", "Lagerdetail_AbmessungNr", _
    "AbmessungNr", 0, 0, False, 1)
    varColumn(2) = Array("qry_LagerbewegungBestand", "Lagerdetail_LagerortNr", _
    "LagerortNr", 0, 0, False, 1)
    varColumn(3) = Array("qry_LagerbewegungBestand", "Lagerdetail_TafelNr", _
    "Tafel-Nr", 1000, 0, True, 1)
    varColumn(4) = Array("qry_LagerbewegungBestand", "Bestand", "Bestand", _
    1000, 0, True, 1)
    varColumn(5) = Array("qry_LagerbewegungBestand", "Verkauf", "Verkauf", _
    1000, 0, True, 1)
    varColumn(6) = Array("qry_LagerbewegungBestand", "Lager_Ort", "Lagerort", _
    1000, 0, True, 1)
    varColumn(7) = Array("qry_LagerbewegungBestand", "Lieferant_Name", _
    "Lieferant", 1800, 1, True, 1)
    varColumn(8) = Array("qry_LagerbewegungBestand", "Lagerdetail_StatusNr", _
    "Liefer-Nr", 1500, 1, True, 1)
 
     GridLagerbewegungBestandColumns = varColumn
 
End Function