01.Private Sub Showdata()
02. Dim sqlDepartment As String
03. sqlDepartment = "SELECT * FROM AssetStaff"
04.
05. Dim dr As SqlDataReader
06. Dim dt As DataTable
07. com = New SqlCommand()
08.
09. With com
10. .CommandType = CommandType.Text
11. .CommandText = sqlDepartment
12. .Connection = Conn
13. dr = .ExecuteReader()
14. If dr.HasRows Then
15. dt = New DataTable()
16. dt.Load(dr)
17. dgvShowData.DataSource = dt
18. Else
19. dgvShowData.DataSource = Nothing
20. End If
21. End With
22. dr.Close()
23. End Sub
