Dim Cursor As Cursor
Dim lstData As List
lstData.Initialize
Dim q As String="Select * From tblMasters WHERE MType=2"
Cursor = SQL1.ExecQuery(q)
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
lstData.Add(Cursor.GetString("ChooseAFieldName"))
Next
ddlaccname.SetItems(lstData)