Sub UpdateTheList
Dim Data As List
Data.Initialize
Dim rs As ResultSet = theDatabase.theDB.ExecQuery("SELECT pk, SiteName, URL, UserID, Password FROM Main")
Do While rs.NextRow
Dim row(4) As Object
row(0) = rs.GetString("SiteName")
row(1) = rs.GetString("URL")
row(2) = rs.GetString("UserID")
row(3) = rs.GetString("Password")
Data.Add(row)
Loop
rs.Close
theList.SetData(Data)
End Sub