Public tstyle() As StyleTyp

Public Type StyleTyp
    sName As String
    sSelect As String
    sSum_Select As String
    sWhere As String
    sWhereLeft As String
    returnFields As Variant
    rs As New ADODB.Recordset
    readDB As Boolean
    allowDelete As Boolean
    nShowAmpelColNo1 As Integer
    nShowAmpelColNo2 As Integer
    Cols() As tColTyp
End Type