Dim lobjConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))

lobjConnection.Open()

lobjcommand.CommandType = CommandType.Text

lobjcommand.CommandText = " SELECT attribute_id FROM spt_server_info"

lobjcommand.Connection = lobjConnection

reccnt = lobjcommand.ExecuteScalar

strConn As String = "data source=master; Persist Security Info=True;packet size=4096"

Dim cmd As New SqlCommand("SELECT attribute_id FROM spt_server_info", New SqlConnection(strConn))
cmd.Connection.Open()
lbCount.Text = cmd.ExecuteScalar()
cmd.Connection.Close()