Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim Constr As String = "Data Source=TCJ-039\SQLEXPRESS;Initial Catalog=employess;Integrated Security=True"
Dim connection As New SqlConnection(Constr)
If connection.State = ConnectionState.Closed Then
connection.Open()
End If
Dim sqlStr As String = "select number,Department,Username,Lastname,Phone,salary,Address from employess where employess_info"
Dim command As New SqlCommand
Dim reader As SqlDataReader = command.ExecuteReader()
While reader.Read()
txt_no.Text = txt_no.Text
Load balance : Server 04
