Griglia e QWTable: riempimento di una griglia con le righe di una QWTable

' il seguente frammento di codice riempie la griglia Grid1 con le righe risultanti da una query
dim q as new QWTable()
q.database=form.GetDataBase()
q.sql="select TOP 10 CODICE,DESCRIZION from ARTIC"
q.requestlive=false
q.active=true

q.rowset.first()
while not q.Rowset.Endofset
    form.FindControl("Grid1").AddRow()
    form.FindControl("Grid1").AssignField("CUSTOM1",q.rowset.fields("CODICE").value)
    form.FindControl("Grid1").AssignField("CUSTOM2",q.rowset.fields("DESCRIZION").value)
    form.FindControl("Grid1").SaveRow()

    q.rowset.next()
End while

form.FindControl("Grid1").MoveFirst()
q.active=false