L=a.Query("select ROW1 from TABLE1")
For i=1 To L.Size-1
strColumn=L.Get(i)
strColumn= strColumn.Replace("[","").Replace("]","")
L1=a2.Query("select ROW2 from TABLE2")
For i2=1 To L1.Size-1
strColumn1=L.Get(i2)
strColumn1= strColumn1.Replace("[[artdes], [","").Replace("]]","")
ListView1.AddTwoLines (strColumn,strColumn1)
Next
Next