Dim dr1, dr2 As SqlDataReader
...
        If pasID >  0  Then 'условие того, что датагрид нужно обновить'
            Command = New SqlCommand("expand2", Connection)
            ...
            dr2 = Command.ExecuteReader
            dtg2.DataSource = dr2
            dtg2.DataBind()
            Session("second") = dr2
            CType(dtg2.DataSource, SqlDataReader).Close()
        Else ' нужно оставить всё как было'
            dtgPassiv.DataSource = Session("second")
            dtgPassiv.DataBind()
        End If