Public Function rpt_GetMannDiszi(TurnierID As Long, TeilnehmerID As Long) As _
  String
 
    Dim sSQL As String
    Dim Laufindex As Integer
    Dim lngFlagValue4Mannschaft As Long
 
    Dim sDisziplingTableNames(7) As String
    Dim sFlagName_MannAktiv(7) As String
 
 
    sDisziplinTableNames(1) = "t_Turnier_Geländelauf2000"
    sDisziplinTableNames(2) = "t_Turnier_Geländelauf5000"
    sDisziplinTableNames(3) = "t_Turnier_Vierkampf"
    sDisziplinTableNames(4) = "t_Turnier_Hindernislaufturnier"
    sDisziplinTableNames(5) = "t_Turnier_Vierkampf2"
    sDisziplinTableNames(6) = "t_Turnier_Geländelauf2000plus"
    sDisziplinTableNames(7) = "t_Turnier_Geländelauf5000plus"

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD