Dim strConnString As String
strConnString = "Server=COM-PC\SA;Uid=sa;PASSWORD=1234;database=DB_SURINPUBLIC;Max Pool Size=400;Connect Timeout=600;"
objConn = New SqlConnection(strConnString)
objConn.Open()
If objConn.State = ConnectionState.Open Then
Me.lblText.Text = "SQL Server Connected"
Else
Me.lblText.Text = "SQL Server Connect Failed"
End IF