TreeView not working in production

        Dim ConnectionString As String = "server=ussrm-netsql\netdata;Trusted_Connection=true;DATABASE=TempMike"
 
        Dim DBConnection As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection(ConnectionString)
        Dim DBAdapter As Data.SqlClient.SqlDataAdapter
        Dim ResultsDataSet As Data.DataSet = New Data.DataSet
 
        Try
 
            DBAdapter = New Data.SqlClient.SqlDataAdapter(QueryString, DBConnection)
            DBAdapter.Fill(ResultsDataSet)
 
            DBConnection.Close()
 
        Catch ex As Exception
 
            If DBConnection.State = ConnectionState.Open Then
 
                DBConnection.Close()
 
            End If
 
        End Try
 
        Return ResultsDataSet

  Sub PopulateTables(ByVal node As TreeNode)
 
        Dim strQuer As String
        strQuer = "SELECT table_name from " & node.Value & ".information_schema.tables"
        Dim ResultSet As Data.DataSet = RunQuery(strQuer)
 
        If ResultSet.Tables.Count > 0 Then
 
            Dim row As Data.DataRow
 
            For Each row In ResultSet.Tables(0).Rows
 
TreeNode(row("table_name").ToString())
                Dim newNode As TreeNode = New TreeNode()
                newNode.Text = "<a target=_blank href =fields.aspx?" & Replace(row("table_name") & "~" & node.Value & "^" & "NSND", " ", "%20") & ">" & row("table_name") & "</a>"
                'newNode.Text = row("table_name").ToString()
                newNode.Value = row("table_name").ToString()
 
                newNode.PopulateOnDemand = False
 
 
                newNode.SelectAction = TreeNodeSelectAction.None
 
                node.ChildNodes.Add(newNode)
 
            Next
 
 
        End If
 
    End Sub