Public Sub CheckForInvAdj()
        intRASNum = Request.QueryString("RAS")
        Me.ViewState("RAS") = intRASNum
        Dim myConnectionIT As New System.Data.SqlClient.SqlConnection(myITConnString)
        myConnectionIT.Open()
        'Populate datagrid with all inventory adjustments for this RAS
        Dim dgrSQL As String = "SELECT InvAdj_id, System_id, SKU_id "
' There are some more fields, but I dont want the page to wrap
        dgrSQL += "FROM MyTable "
        dgrSQL += "WHERE Incident_id = '" & intRASNum & "' ORDER BY InvAdj_id"

        Dim myCommand As New System.Data.SqlClient.SqlCommand(dgrSQL, myConnectionIT)
        Dim myReader As System.Data.SqlClient.SqlDataReader = myCommand.ExecuteReader()
        Dim rowCnt As Integer = 0
        If myReader.HasRows Then
            Do While myReader.Read()
                rowCnt += 1
            Loop
        End If
        myReader.Close()
        dgrAllCom.VirtualItemCount = rowCnt

        If dgrAllCom.VirtualItemCount = 0 Then
            ' If there are no records, hide the datagrid
            myConnectionIT.Close()
            dgrAllCom.VirtualItemCount = False
            Exit Sub
        End If

        'at least one record was found
        Dim ds As New DataSet
        Dim da As New System.Data.SqlClient.SqlDataAdapter(dgrSQL, myConnectionIT)
        da.Fill(ds, dgrAllCom.CurrentPageIndex * dgrAllCom.PageSize, dgrAllCom.PageSize, "IT_Incident_InvAdj")
        dgrAllCom.Visible = True
        dgrAllCom.DataSource = ds.Tables("MyTable")
        dgrAllCom.DataKeyField = "InvAdj_id"
        dgrAllCom.DataBind()
        myConnectionIT.Close()
    End Sub

dgrAllCom.Columns.RemoveAt(0)
dgrAllCom.Visible = True
dgrAllCom.DataSource = ds.Tables("MyTable")
dgrAllCom.DataKeyField = "InvAdj_id"
dgrAllCom.DataBind()