Try
            Dim conn = ConfigurationManager.ConnectionStrings("Receptionstring")
            Dim _conn As String = conn.ConnectionString
            Using db As New SqlConnection(_conn)
                db.Open()
                Dim sqltrans As SqlClient.SqlTransaction
                sqltrans = db.BeginTransaction
                Using sqlcmd As New SqlCommand("sp_salvamov", db)
                    Try
                        sqlcmd.CommandType = CommandType.StoredProcedure
                        sqlcmd.Parameters.AddWithValue("@idstruttura", SqlDbType.Int).Value = idstruttura
                        sqlcmd.Parameters.AddWithValue("@idtipogruppo", SqlDbType.TinyInt).Value = ItemMovimento.idtipogruppo
                        sqlcmd.Parameters.AddWithValue("@data_arrivo", SqlDbType.Date).Value = ItemMovimento.data_arrivo
                        sqlcmd.Parameters.AddWithValue("@idprovenienza", SqlDbType.Int).Value = ItemMovimento.idprovenienza
                        sqlcmd.ExecuteNonQuery()
                        sqltrans.Commit()
                    Catch ex As Exception
                        sqltrans.Rollback()
                    End Try
                End Using
            End Using
        Catch ex As Exception
            Throw ex
            Exit Sub
        End Try