Dim MySqlVjkaText As String
  Dim rsVjkaText As Recordset
 
  MySqlVjkaText = "SELECT JAHR FROM VJKA WHERE (VJKA.BausparNr='" & "000" & _
    glbBSNR & "') ORDER BY JAHR;"
  Set rsVjkaText = CE_SQL.OpenRecordset(MySqlVjkaText, dbOpenDynaset)