sSQL = " SELECT tblProfilData.ID_Station, tblProfilData.ID," & _
      "tblProfilData.GCode, tbl_GAF_Code.KZ, tbl_GAF_Code.BezugTyp, " & _
         "[Distance]*[DistanceIdx] AS Dist " & _
         " FROM tblProfilData INNER JOIN (tbl_GAF_Code INNER JOIN tbl_Bezugstyp" & _
         "ON tbl_GAF_Code.BezugTyp = tbl_Bezugstyp.ID) ON tblProfilData.GCode =" & _
         "tbl_GAF_Code.GeosiCode" & _
         " WHERE (((tbl_GAF_Code.BezugTyp)=" & CStr(lngID) & "))" & _
         " ORDER BY  tblProfilData.DistanceIdx, [Distance]*[DistanceIdx];"

    Set rs = Db.OpenRecordset(sSQL, dbOpenDynaset)
 
    'Anzahl der gefundenen Recordsets
    iCountRecordsets = rs.RecordCount
 
    'Redim der Felder
    ReDim sCodeData(0 To iCountRecordsets - 1)
    ReDim lngPktID(0 To iCountRecordsets - 1)
    iIndex = 0
    rs.MoveFirst
    While Not rs.EOF
        'Felder beschreiben
        Debug.Print nz(rs("Dist"), 0#)
        sCodeData(iIndex) = nz(rs("tbl_GAF_Code.KZ"), "")
        lngPktID(iIndex) = nz(rs("tblProfilData.ID"), -1)
 
        iIndex = iIndex + 1
        rs.MoveNext
    Wend

 sCodeData(iIndex) = nz(rs("tbl_GAF_Code.KZ"), "")

Public Function nz(vValue As Variant, AlternativeValue As Variant) As Variant
    If IsNull(vValue) Then
        nz = AlternativeValue
    Else
        nz = vValue
    End If

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD