> Dim cn4 As New SqlConnection
>         cn4.ConnectionString = conexion
>         Dim cmd4 As New SqlCommand()
>         cmd4.CommandText = "SELECT * adquisiciontemp"
>         cmd4.Connection = cn4
>         cn4.Open()

>  Dim cn3 As New SqlConnection
>         cn3.ConnectionString = conexion
>         Dim cmd3 As New SqlCommand()
>         cmd3.CommandText = ("INSERT INTO adquisicion")
>         cmd3.Connection = cn3
>         cn3.Open()
>         cmd3.ExecuteNonQuery()