myConn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0; data source=C:\db\db_TC.accdb"

        myConn.Open()

        myCmdA = myConn.CreateCommand
        myCmdA.CommandText = "SELECT Distinct ТехСредство FROM ТехСредства Order By ТехСредство"

        Drdr_A = myCmdA.ExecuteReader

        myConnSql = New SqlConnection("Initial Catalog=move_hardware;Data Source=localhost;User ID=hw;Password=root;")
        myConnSql.Open()

        myCmd = myConnSql.CreateCommand

        Do While Drdr_A.Read

            myCmd.CommandText = "INSERT INTO CONF_HW(CONF_HW) VALUES('" & Drdr_A.Item(0) & "')"
            myCmd.ExecuteNonQuery()

        Loop