Public Function UpdateDemo(myDataSet As DataSet, myConnection As String, mySelectQuery As String, myTableName As String) As Da

Dim filterExp As String = "Status = 'Active'"

Dim sortExp As String = "City"

Dim drarray() As DataRow

Dim i As Integer

drarray = dataSet1.Customers.Select(filterExp, sortExp, DataViewRowState.CurrentRows)

For i = 0 To (drarray.Length - 1)

   listBox1.Items.Add( drarray(i)("City").ToString )

Next