Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
filllistbox()
End Sub
*******************
Sub filllistbox()
Dim listcommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand("select id,cat from...