Dim mycon As New SqlClient.SqlConnection _
("server=wuming;user ID=cheng;Password=123;database=pubs")
mycon.Open()
Me.Text = mycon.State.ToString
mycon.Close()
("server=wuming;user ID=cheng;Password=123;database=pubs")
mycon.Open()
Me.Text = mycon.State.ToString
mycon.Close()