'Заполняем ListView
        Dim strCommandGoods As String = "SELECT Goods_id, Goods_Name FROM table_Goods ORDER BY Goods_Name"
        Dim cmdGoods As New System.Data.SqlClient.SqlCommand(strCommandGoods, AppGlobal.gconAppConnection)
        cmdGoods.CommandType = CommandType.Text
        Dim rGoods As System.Data.SqlClient.SqlDataReader = cmdGoods.ExecuteReader
        intCounter =  0 
        Do While rGoods.Read()
            Me.ListView_Goods.Items.Add(rGoods.GetInt64( 0 ))
            Me.ListView_Goods.Items(intCounter).SubItems.Add(rGoods.GetString( 1 ))
            intCounter = intCounter +  1 
        Loop