iOS Question Using Resultset to return a "table.column"

    Dim GetAuditInfoSQL As String
    Dim Cursor1 As ResultSet
   
    GetAuditInfoSQL = "Select AssessmentSummary.AssessmentSummaryRef,AssessmentSummary.Location, QuestionHeading.QuestionHeadingref, QuestionHeading.Type, QuestionHeading.InOut, QuestionHeading.FixedScore, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.QuestionHeadingNr, QuestionHeading.QuestionHeading as audit_name, QuestionHeading.QuestionHeadingDescription, QuestionHeading.ComboReference, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.Live, QuestionHeading.FromLow, QuestionHeading.ToLow, QuestionHeading.FromMedium, QuestionHeading.ToMedium, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.FromHigh, QuestionHeading.ToHigh, QuestionHeading.AssessedScore, QuestionHeading.AssessedRisk, QuestionHeading.HeadingField, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.Display, QuestionHeading.Mechanism, QuestionHeading.Increase_improve, QuestionHeading.COMPANYREF, QuestionHeading.SUBJECTIVE, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.NONA, QuestionHeading.CHECKLIST, QuestionHeading.IMPACTS, QuestionHeading.SPECIAL, QuestionHeading.Create_Percent, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.link_ref, QuestionHeading.Pass1, QuestionHeading.AuditGroupRef, QuestionHeading.Include, QuestionHeading.RWARef, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.RWASystem, QuestionHeading.FTOSet, QuestionHeading.ActivePeriod, QuestionHeading.GroupPriority, QuestionHeading.ReportOrderPriority, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.BaseScore, QuestionHeading.ConcactenateSolutions, QuestionHeading.LockedFromEdit, QuestionHeading.QuestionHeadingNumOriginator, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.CorporationOrigin, QuestionHeading.sharing, QuestionHeading.Resolution, QuestionHeading.ReportTitle, QuestionHeading.ReportNarrative, "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading.CalculatedConsultant "
    GetAuditInfoSQL = GetAuditInfoSQL & "FROM AssessmentSummary INNER JOIN "
    GetAuditInfoSQL = GetAuditInfoSQL & "QuestionHeading ON AssessmentSummary.QuestionHeadingRef = QuestionHeading.QuestionHeadingref "
    GetAuditInfoSQL = GetAuditInfoSQL & "WHERE (AssessmentSummary.AssessmentSummaryRef = "&CurrentAuditAssRef&") "

    Cursor1 = Main.SQL1.ExecQuery(GetAuditInfoSQL)




AuditHeading.Text = Cursor1.GetString("audit_name")

Do While Cursor1.NextRow
AuditHeading.Text = Cursor1.GetString("audit_name")
Loop