01.sb.Append("SELECT id,username,name,surname,email,status,is_active FROM users")
02. sb.Append(" ORDER BY id ASC")
03. sqlUser = sb.ToString
04. cmd = New SqlCommand
05. With cmd
06. .CommandText = sqlUser
07. .Connection = conn
08. dr = .ExecuteReader
09. If dr.HasRows Then
10. dt = New DataTable
11. dt.Load(dr)
12. dgUser.DataSource = dt
13. Else
14. dgUser.DataSource = Nothing
15. End If
16. End With
17. dr.Close()
