Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ds As New DataSet
Dim i As Integer = 0
ds = selectdata("Select * from mst_members order by member_name")
If ds.Tables(0).Rows.Count > 0 Then
While (i <> ds.Tables(0).Rows.Count)
Me.DataGrid1.Rows.Add()
Me.DataGrid1.Item(0, i).Value = ds.Tables(0).Rows(i).Item("account_no").ToString
Me.DataGrid1.Item(1, i).Value = ds.Tables(0).Rows(i).Item("member_name").ToString
Me.DataGrid1.Item(4, i).Value = IIf(ds.Tables(0).Rows(i).Item("member_name").ToString.StartsWith("s"), 1, 0)
i = i + 1
End While
End If
i = 0
ds.Clear()
End Sub